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HOME VIDEO GAME SYSTEM 


This documentation describes the Bally Home Video Game System. The 
description begins with a discussion of the major sub-sections of the 
system. Following this, each sub-section is presented in greater 
detail, with detailed particulars, such as calling sequences and 
resource use. 

The major sub-sections of the system are: 

The User Program Interface. . .which allows cassettes to reference the 
system routines through a standard interface. Includes an interpreter. 

The Screen Handler... a complex of routines for creating screen images. 
Includes facilities for initialization, pattern, and character display, 
co-ordinate conversion, and object vectoring. 

The Interrupt Processor. . .decrements timers, plays music, and 
produces sounds. 

The Human Interface. . .reads keypad and control handles, inputs game 
selection and options. 

Math Routines... a package of routines for manipulating floating 
BCD numbers. 



USER PROGRAM INTERFACE 


The User Program Interface (UPI) is a set of procedures and conventions, 
which are utilized by a cassette program to access the facilities 
provided by the home video game system. By adhering to these conventions 
a cassette program will be system independent, thus allowing improvements 
to be made to later versions of the system and on-board games, while 
maintaining upward compatability. 

The basic rule for using the UPI is: 

With exception to the system DOPE vector, no cassette 
should ever address system ROM directly, or expect a 
given cell to always equal a certain value 

The mechanism for calling a system routine is: 

RST 56 

DEFB (routine # + option) 

where routine number is an even number specifying which sub-routine 
to transfer to, symbolic identifiers, which are equated to routine 
numbers, are provided in HVGLIB. 

Option is used to specify how arguments are being passed to the 
system routine. If option equals zero, the arguments are presumed to 
exist in CPU registers; if option equals 1, the arguments are taken 
to follow in line after the routine number/option byte. These argu- 
ments are loaded into the CPU registers automatically before the 
called routine is entered. The arguments required by each system 
routine are given in the routine's detail documentation. 



The SYSTEM macro generates the sequence previously mentioned 
with option = 0: 

SYSTEM (routine #) 

(example) 

SYSTEM FILL 

The SYSSUK macro generates the sequence previously mentioned 
with option = 1: 

SYSSUK (routine #) 

Frequently it is desirable to string several system routine calls 
together. If four or more calls follow in sequence, it is more 
efficient to utilize the interpreter. By using the interpreter we 
void the overhead of the RST 56 instruction by expecting a call index 
to immediately follow the call index or arguments used by the previous 
system routine. 

Special call indexes are used to enter and exit interpretive mode: 


Example: 


SYSTEM 

INTPC 

DO 

FILL 

DEFW 

NORMEM 

DEFW 

92*BYTEPL 

DEFB 

0 

DO 

CHRDIS 

DEFB 

0 

DEFB 

10 

DEFB 

8 

DEFB 

EXIT 

'A' 


BEGIN INTERPRETING 
DO FILL ROUTINE 
STARTING AT TOP OF SCREEN 
CONTINUING FOR 92 LINES 
FILLED WITH ZEROES 
DO CHARACTER DISPLAY ROUTINE 
Y-AXIS POSITION OF CHARACTER 
.X-AXIS POSITION OF CHARACTER 
,OPTIONS-PLOP,10-ON ,00-OFF 
.CHARACTER TO BE DISPLAYED 
.EXIT INTERPRETER 



A block of call indexes have been set aside for the internal use of 
cassette programs. If a negative call index is encountered, the 
user's macro routine address table and argument table are utilized. 
The user is responsible for storing the addresses of these tables 
into dedicated system RAM cells. 

All UPI routines are re-entrant. 

Registers which are not defined as containing output parameters 
will not change. 



SYSTEM ROUTINE CONVENTIONS 


A system routine is coded like a conventional machine language 
subroutine, with the exception that output parameters are not passed 
through registers, but rather through the context block. 

The context block is created by the RST 56 call. The user's register 
set (AF, BC, DE, HL, IX, IY) is pushed onto the stack. Register IY 
is set to point at this stack frame. Thus a copy of the input 
arguments exists in RAM which the system routine may refer to as needed. 
These arguments are also present in the registers when the system 
routine is entered; hence it is only necessary to refer to the context 
block when one has clobbered an input argument. 

An output argument is returned to the caller by setting it in the 
context block. If a register was changed, but the associated cell in 
the context block was not, then the register will have it's old value 
on return. Thus a system routine is free to use any of the registers 
it needs without concern to saving and restoring. Moreover, the user 
can assume that no registers will change except those defined as 
returning an output argument. 

The following illustration describes the context block and equates 
provided in HVGLIB for each field. 

Four tables are used by the UPI in the control transfer process. The 
first two tables gives the routines starting address indexed via call 
number. The systems table is named SYSDPT. The user may extend this 
table by storing the address of his extended table into USERTB, 

USERTB+1. This address should point 128 bytes before the first entry. 



The other two tables describe what in line arguments a call that 
specifies in line arguments should expect. This table gives a one-byte 
bitstring, also indexed via call number. The systems name is MRARGT, 
the user's address is in UMARGT, UMARGT must point 64 bytes ahead. 
Arguments must follow the call in a specified order. 

Note that the context contains additional information not shown. This 
information exists both above and below the context. User programs 
should never use this information or even assume that it exists. The 
user should only address this area by using IY. 


DISPLACEMENT 

MEMORY CELL 

EQUATE NAME 

0 

IY 

CBIYL 

1 

CBI YH 

2 

IX 

CBIXL 

3 

CBI XH 

4 

E 

CBE 

5 

D 

CBD 

6 

C 

CBC 

7 

B 

CBB 

8 

FLAGS 

CBFLAG 

9 

A 

CBA 

A 

L 

CBL 

B 

H 

CBH 


CONTEXT 


BLOCK FORMAT 
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IN LINE ARGUMENT MASK TABLE ENTRY 
TABLES MRARGT and UMARGT 


If a bit corresponding to a register is set, the register is loaded. 
The order in which the arguments must appear is: 

IX (L then H), E, D, C, B, A, L, H 

If an argument isn't specified, it is omitted. 


7 6 5 4 3 2 I 0 


H 

D 

□ 

IX 

B 

□ 

□ 

E 






UPI I NTPC 

BEGIN INTERPRETING 


Calling Sequence: SYSTEM 

Aruguments: None 

Notes: None 

Description: 


INTPC 


See UPI description for explanation of interpreter 
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UPI XINTC 
EXIT INTERPRETER 

Calling Sequence: EXIT 

Arguments: None 

Description: 

This code causes the interpreter to exit. Execution of machine 
instructions proceeds at the following location. 

Restrictions: 

This routine should only be called using the interpreter. A direct 
system call would produce unpredictable (and catastrophic) results. 
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UPI RCALL 

CALL ASSEMBLY LANGUAGE SUBROUTINE 

Calling Sequence: DO RCALL 

or 

DONT RCALL 

DEFW (routine address) 

Arguments: HL=address of routine to call 

Description: 

RCALL may be used to call any assembly language subroutine from the 
interpreter. When the subroutine returns, interpretation proceeds 
at the next instruction. 

When the assembly language routine receives control, HL will point 
at the routine's starting address; the other registers will contain 
their current values. Any changes made to the register set by the 
subroutine will not be passed along. To pass an output parameter, the 
subroutine must alter the context block, which is pointed at by IY. 

Restrictions: 

Assembler routine must not destroy IY. 

Example: DEFB RCALL 

DEFW CLRAC 


CLRAC: XOR 

RET 


A 



UPI MCALL 

CALL INTERPRETER SUBROUTINE 


Calling Sequence: SYSTEM MCALL 

or 

SYSSUK MCALL 

DEFW (routine address) 

Arguments: HL=Subroutine Address 

Description: 

MCALL is used to call an interpreter sequence as a subroutine. MCALL 
may be used from machine language as well as within an interpreted 
sequence. Calls may be nested infinitely, limited only by stack 
space (4 bytes per call) 

To exit the interpreted subroutine, use MRET. 


Example: 

SYSSUK 

DEFW 


ZAPALL: DO 


DEFW 


DEFW 


DEFB 


DO 


MCALL 

ZAPALL 


FILL+1 ;D0 FILL 

NORMEM 
0FFFH 
0 

MRET ;G0 BACK TO CALLER 



UPI MJUMP 
INTERPRETER JUMP 


Calling Sequence: DO MJUMP 

or 

DONT MJUMP 

DEFW (goto address) 

Arguments: HL=Go to address 

Description: 

The current interpretive program counter is set to the contents of HL. 
The next instruction is fetched from that address. 

Restrictions: 

MJUMP must be called from the interpreter. The targets of all JUMPS 
must also be interpreted sequences. 


Example: 


SYSTEM 

INTPC 

;ENTER INTPC STEP 



DO 

DEFW 

MJUMP 

END 

; JUMP TO END OF 
; INTPC STEP 


END: 

DEFB 

XINTC 

; EX IT INTERPRETER 
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UPI MRET 

RETURN FROM INTERPRETIVE SUBROUTINES 

Calling Sequence: DO MRET 

Arguments: None 

Description: 

MRET causes execution to proceed at the instruction following the 
corresponding MCALL instruction. See MCALL for more information. 



SCREEN HANDLER 


The screen handler is a group of routines for generating frame buffer 
images. Included are entries for filling sections of the screen with 
constant data, the animation of figures, and the display of alpha- 
numerics. 

Many of these routines utilize the MAGIC functions provided by the 
custom chips. Since the status of these chips cannot be context- 
switched, many of these routines are not re-entrant. The user is 
responsible for preventing conflicts. This can be done by disabling 
interrupt, or implementing a semaphore. 



SCREEN SETOUT 
SET DISPLAY PORTS 


Calling Sequence: 

Arguments : 

Output: 

Description: 


SYSTEM SETOUT 
or 

SYSSUK SETOUT 

DEFB BLINE*2 

DEFB HORIZX/4 

DEFB INMOD 

A=Data to output to INMOD 

B=Data to output to HORCB 

D=Data to output to VERBL 

None 


(port EH) 
(port 9H) 
(port AH) 


Outputs above data to ports 

See hardware writeup for discussion of 

above ports. 
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SCREEN FILL 

FILL A CONTIGUOUS AREA WITH CONSTANT 

Calling Sequence: SYSTEM FILL 

or 

SYSSUK FILL 

DEFW (first byte) 

DEFW (number of bytes) 

DEFB (data to fill with) 

Arguments: A =Data to fill with 

BC=number of bytes to fill 
DE=address to begin filling at 

Description: 

This routine sets the memory range DE to (DE+BC-1) to the 
specified constant. 

Notes : 

Fill can be used for screen clearing, or initialization of scratchpad 
RAM. It is re-entrant. 
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SCREEN RECTAN 
PAINT A RECTANGLE 


SYSTEM RECTAN 
or 

SYSSUK RECTAN 

DEFB (X co-ordinate) 

DEFB (Y co-ordinate) 

DEFB (X size) 

DEFB (Y size) 

DEFB (color mask) 

A =Color mask to write rectangle with 
B =Y-size of rectangle in pixels 
C =X-size of rectangle in pixels 
D =Y co-ordinate for UL corner of rectangle 
E =X co-ordinate for UL corner of rectangle 

Description: 

A rectangle of specified size of color mask is written at X,Y. RECTAN 
uses the MAGIC functions and is not re-entrant. 

Example: Put up a 3 X 4 rectangle of color 2 at 15,13. 

DO RECTAN 

DEFB 15 

DEFB 13 

DEFB 3 

DEFB 4 

DEFB 10101010B 


Calling Sequence: 


Arguments : 
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SCREEN WRITE ROUTINES 


Virtually every video game involves the manipulation of animated 
figures. These figures are composed of patterns which are arbitrary 
pixel arrays. The write routines are used to transfer such patterns 
to the screen. 

Five hierarchical levels of call are supported. The levels differ in 
the amount of preprocessing required by the user before calling. The 
highest level assumes that most of the parameters reside in a standard 

data structure, while the lowest level presumes that all arguments are 

in registers with all attendant transformations (such as relative-to- 
absolute conversion) already accomlished. The five levels are: 

(1) Write from a Vector 

(2) Write Relative 

(3) Write Variable Pattern 

(4) Write 

(5) Write Absolute 

Two transformations of the pattern may be performed prior to writing. 

They are FLOP and EXPAND. FLOP is mirroring the pattern on the X-axis. 
EXPAND is the translation of a 1-bit per pixel pattern into a 2-bit per 
pixel pattern. Since many patterns are only two-color, this allows for 
more efficient pattern storage. FLOP and EXPAND can both be done at 
the same time. 

Three writing modes may be used. They are PLOP, OR, and XOR. PLOP is 
a conventional store into RAM. If OR is optioned, the data being written 
is ORed bit by bit with whatever was already there. Similarly, if XOR 
is set, the pattern is XORed with that beneath. Use of OR or XOR takes 
slightly longer since a read before write must be performed. 

Note that ROTATE is not currently supported in software due to 
space considerations. 



STANDARD CALLING SEQUENCE 


Every write routine uses a subset of the following argument/regi ster 
assignment: 


A = Magic Register 

B = V Pattern Size 

C = X Pattern Size in Bytes 

D = Y Co-ordinate (0 - 101) 

E = X Co-ordinate (0 - 159) 

HL = Pattern Address 
IX = Vector Address 



PATTERN REPRESENTATION 


The higher the level of the write routine, the more ancillary infor- 
mation is stored with the pattern. The following diagram shows what 
each level expects. Any bytes of lower address than the pointer for 
a given level, need not be specified. 

Use Restrictions: 

None of the write routines are re-entrant due to Magic Register/Expander 
clobber. 


VWRITR,WRITR 
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SCREEN WRITE VWRITR 
WRITE RELATIVE FROM VECTOR 


Calling Sequence: 


Arguments: 

Output: 


SYSTEM VWRITR 
or 

SYSSUK VWRITR 
DEFW (vector) 

DEFW (pattern) 

HL=Pattern address 
IX=Vector Address 
DE=Absolute address used 
A =Magic register used 


Description: 

The co-ordinates and magic register are loaded from the specified 
vector. (See vector routine document) The relative co-ordinates 
stored with the pattern are added to the co-ordinates from the vector. 
The pattern size is also taken from the pattern and writing proceeds. 


Notes: 

If expansion is to be done, the ON/OFF color must be set by the user 
before calling VWRITR. 


SCREEN WRITE WRITR 
WRITE RELATIVE 


Calling Sequence: 


Arguments : 


Output: 


SYSTEM WRITR 
or 

SYSSUK WRITR 
DEFB (X co-ordinate) 
DEFB (Y co-ordinate) 
DEFB (Magic Register) 
DEFW (Pattern address) 
HL=Pattern address 
A =Magic Register 
D =Y co-ordinate 
E =X co-ordinate 
DE=Screen Address Used 
A = Magic Register Used 


Description: 

The relative co-ordinates stored with the pattern are added to the 
co-ordinates passed in DE. Pattern size is taken from the pattern. 


Notes: 

If expansion is to be done, the ON/OFF color must be set by the user 
before calling WRITR. 
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SCREEN WRITE WRITP 

WRITE WITH PATTERN SIZE SCARE UP 


Calling Sequence: SYSTEM WRITP 

or 

SYSSUK WRITP 

DEFB (X co-ordinate) 

DEFB (Y co-ordinate) 

DEFB (Magic Register) 

DEFW (Pattern address) 

Arguments: HL=Pattern Address 

A =Magic Register 
D =Y co-ordinate 
E =X co-ordinate 

Output: DE=Screen Address Used 

A =Magic Register Used 


Descri ption : 

The pattern size is taken from the pattern. 


Notes : 

User must worry about ON/OFF color if expansion is used. 
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SCREEN WRITE WRIT 
WRITE PATTERN 

Calling Sequence: SYSTEM WRIT 

or 

SYSSUK WRIT 
DEFB (X co-ordinate) 

DEFB (Y co-ordinate) 

DEFB (X pattern size) 

DEFB (Y pattern size) 

DEFB (Magic Register) 

DEFW (Pattern address) 

Arguments: HL=Pattern Address 

A =Magic Register to use 
B =Y pattern size 
C =X pattern size 
D =Y co-ordinate 
E =X co-ordinate 

Output: DE=Absolute address used 

A =Magic Register used 


Notes : 

User must set ON/OFF color if using expansion. 


SCREEN WRITE WRITA 
WRITE ABSOLUTE 


Calling Sequence: 


Arguments : 


SYSTEM WRITA 
or 

SYSSUK WRITA 

DEFW (Absolute address) 

DEFB (X pattern size) 

DEFB (Y pattern size) 

DEFB (Magic Register) 

DEFW (Pattern address) 

HL=Pattern Address 
A =Magic Register 
B =Y Pattern size 
C =X Pattern size 

DE=Absolute screen address of upper left- 
hand corner of where to write 


Notes : 

This entry can be used for pattern writing to non-magic memory. 
The value in A is not output to (MAGIC); it is only interrogated 
to decide whether to FLOP or EXPAND. 


SCREEN SAVE 
SAVE AREA 


Calling Sequence: 


Arguments : 


SYSTEM SAVE 
or 

SYSSUK SAVE 
DEFW (save area) 

DEFB (X size) 

DEFB (Y size) 

DEFW - (Screen address) 

B =Y size of area to save 
C =X size of area to save (in bytes) 
DE=Address of save area 

HL=Absolute address of upper left-hand corner 
of area to save 


Descri ption: 

SAVE is used to preserve what is 'underneath' a moving pattern. SAVE 
copies the indicated area of the screen to the save area. The sizes of 
the area which was saved is preserved in the first two bytes of the 
save area. 

The save area size must be greater than or equal to the X-size times the 
Y-size plus 2. 

The save area may be MAGIC or non-MAGIC. 
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SCREEN RESTORE 
RESTORE AREA 

Calling Sequence: SYSTEM RESTOR 

or 

SYSSUK RESTOR 

DEFW (Save area) 

DEFW (Screen address) 

Arguments: DE=Save area to restore from 

HL=Absolute address of upper left-hand corner 
of area to restore 

Description: 

RESTORE is the inverse of SAVE. The size of the area to restore is 
taken from the first two bytes of the save area. 


SCREEN V BLANK 
BLANK FROM VECTOR 


Calling Sequence: 


Arguments : 


SYSTEM VBLANK 
or 

SYSSUK VBLANK 

DEFW (Vector address) 

DEFB (X size) 

DEFB (Y size) 

D =Y size 

E =X size (in bytes) 
IX=Vector address 


Description: 

The BLANK bit in the vector status byte is tested. If it is not set, 
no blanking is done. If it is set, it is reset, then the old screen 
address is taken from the vector and blanking is done. If FLOPPED is 
specified by the Magic Register byte in the vector, a flopped blank i 
done. VBLANK always blanks to zero. 


SCREEN BLANK 
BLANK AREA 


Calling Sequence: 


Arguments : 


SYSTEM BLANK 
or 

SYSSUK BLANK 
DEFB (X size) 

DEFB (Y size) 

DEFB (Blank to) 

DEFW (Blank address) 
HL=Blank address (not MAGIC) 
B =Data to blank to 
D =Y size 
E =X size 


Descri ption : 

The specified area is blanked to whatever is passed in B. 


SCREEN SCROLL 
SCROLL WINDOW 


Calling Sequence: 


Arguments : 


SYSTEM SCROLL 
or 

SYSSUK SCROLL 

DEFW (line increment) 

DEFB (# of bytes) 

DEFB (# of lines) 

DEFW (first byte) 

B ^Number of lines to scroll 
C =Number of bytes on line to scroll 
DE=Line increment 
HL=First byte to scroll 


Description: 

This routine copies NBYTES from first line +INC to first line. 

Thus to scroll upward, HL points at the first line (which is over- 
written) and the line increment would be positive. To scroll downward 
HL points at the last line and the line increment would be negative. 
The value in HL is an absolute address calculated by: 

BASE OF SCREEN + #BYTES IN X OFFSET +(#lines offset*byte per line) 


Note: 

This routine can only be used to scroll one line at a time. 


SCREEN ALPHANUMERIC 
ALPHANUMERIC DISPLAY ROUTINES 

HVGSYS provides several routines for the display of alphanumeric 
information. This section provides information which is common to all 
of the alphanumeric display routines. 

The ASCII character code is used to represent all strings, with 
the following extensions: 

Characters with hex equivalents in the range 1 - IF are 
interpreted as tabulation codes which cause the character 
display routines to skip over N character positions before 
writing the following characters. 

The characters 20H to 63H are displayed as 5 X 7 standard 
graphics with 3 pixels of horizontal spacing and 1 pixel 
of vertical spacing. 

The characters between 64H and 7FH are interpreted by STRDIS 
as control codes which cause the contents of registers C, DE, 
and IX to be changed to the value that follow the string. 

See table accompanying STRDIS. 

The characters between 80H and FFH are taken as references to 
a user supplied alternate character font. 
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The following argument/register combinations are used by all of the 
alphanumeric display routines. 

Register C contains the options byte formatted as shown below. 

ENLARGE FACTOR specifies if the character is to be enlarged in size. 

The table below defines the possible values for this parameter. 

XOR/OR WRITE - all writes are performed through magic memory. Use 
of one of these options causes the character to be ORed/XORed with 
what was beneath it. 

ON/OFF COLOR - all characters are stored one bit per pixel, but are 
written two bits per pixel by use of the expander. This field specifies 
the pixel values to translate the one bit per pixel representation into. 
For example, the value 1101 specifies that the foreground color is 11, 
and the background color is 01. 


OPTION BYTE 


enlArge 

XOR 

OR 

ON 

o£f 

FACTOR 

WRITE 

WRITE 

COLOR 

l 

COLOR 


ENLARGE 

HOW MANY 

ENLARGED SIZE 

FACTOR 

TIMES LARGER 

OF SINGLE PIXEL 

00 

1 

1 X 1 

01 

2 

2X2 

10 

4 

4X4 

11 

8 

8X8 
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D register contains the Y co-ordinate and the E register contains 
the X co-ordinate. These co-ordinates give the address of the upper 
left-hand corner where the first character will appear. Upon return, 
these registers are updated to give the address of the character to 
the right, (or below if no more space exists on the line). This 
simplifies the composition of complex messages. 

IX register contains the Alternate Font Descriptor. It is required 
only if alternate font is referenced in call. Each character must be 
stored in one-bit per pixel format. 

The small (3 X 5) character set is displayed using this facility. A 
word in the system DOPE vector points at a standard alternate font 
descriptor for this character set. 

The format of the alternate font descriptor is shown below. 


EQUAL TO FIRST CHARACTER IN TABLE 
CHARACTER SIZE IN BITS + X SPACING 
CHARACTER SIZE IN BITS + Y SPACING 

EACH CHARACTER TABLE ENTRY SHOULD BE OF 
SIZE X PATTERNS PATTERN SIZE 




SCREEN ALPHANUMERIC DISNUM 
DISPLAY BCD NUMBER 


Calling Sequence: 


Arguments : 


*NOT LOADED 
Outputs : 


SYSTEM DISNUM 
or 

SYSSUK DISNUM 
DEFB (X) 

DEFB (Y) 

DEFB (options) 

DEFB (extended options) 

DEFW (number address) 

B =Extended options 
C =Standard alphanumeric options byte 
DE=Standard X,Y co-ordinate 
HL=Address of BCD number 
IX=Optional character font descriptor 
DE=Updated 


Decription: 

This routine displays the standard BCD codes 0 through 9. In addition, 
the codes AH through FH are also defined. The interpretation for 
these codes are: A=* B=+ C = 1 

D = - E = . F = / 


If leading zero suppress is set, then instead of displaying a leading 
zero, a space is displayed. The first non-zero nibble encountered 
terminates leading zero suppression (including A - F). If the number 
is zero, a single zero is displayed. 

If alternate font is set, the routine will display using codes between 
AAH and B9H (zero starting at B0H). 


SCREEN ALPHANUMERIC DISTIM 
DISPLAY TIME 


Calling Sequence: 


Arguments : 


Outputs : 


SYSTEM DISTIM 
or 

SYSSUK DISTIM 

DEFB (X co-ordinate) 

DEFB (Y co-ordinate) 

DEFB (options) 

DE=X,Y co-ordinates 
X =0ptions (see note below) 

IX=Alternate Font Descriptor (not loaded) 
DE=Updated 


Description: 

This routine displays the system time (GTMINS.GTSECS) at the co- 
ordinates specified in the form MM:SS, where M=minutes, S=seconds. 
Seconds are optional. 

Notes : 

The small character set is used and one level of enlarge factor 
is permitted. 

Options are the same as the alphanumeric display routine except 
that bit 7=1 to display colon and seconds; bit 7=0 to suppress col 
and seconds. 


SCREEN ALPHANUMERIC CHRDIS 
DISPLAY CHARACTER 


Calling Sequence: 


Arguments : 


*NOT LOADED 
Outputs: 


SYSTEM CHRDIS 
or 

SYSSUK CHRDIS 

DEFB (X co-ordinate) 

DEFB (Y co-ordinate) 

DEFB (options) 

DEFB (Character) 

A =ASC 1 1 character to display 
C =Standard options byte 
DE=Standard Y,X co-ordinates to begin at 
IX=Optional alternate font descriptor address 
DE=Updated to next frame 


Description: 

This is the basic charcter display promative. If tabulation is 
specified, the co-ordinates are updated but no actual writing occurs. 


Notes: 

Observe that IX is not loaded by the UPI SUCK facility. If alternate 
font is used, IX must be loaded with alternate font descriptor addres 


Since this routine uses magic memory, it is not re-entrant. 


SCREEN ALPHANUMERIC STRDIS 
DISPLAY STRING 


Calling Sequences: 


Arguments : 


*NOT LOADED 
Outputs : 


SYSTEM STRDIS 
or 

SYSSUK STRDIS 

DEFB (X co-ordinate) 

DEFB (Y co-ordinate) 

DEFB (Options) 

DEFW (String) 

HL=String address 
C =Standard Options 
DE=Standard Co-ordinates 
IX=A1 ternate Font Descriptor Address 
DE=Updated to next frame 


Description: 

The string pointed at by HL is displayed as optioned. The string 
terminated by a zero byte. 


Notes : 

IX is not loaded by SUCK. STRDIS is not re-entrant. 
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STRDIS INTERPRETATION OF CODES 64H to 7FH 


STRDIS responds to the charcter codes between 64H and 7FH. These codes 
are taken to specify that certain registers in the context block are 
to be set to new values. This facility is useful for changing size, 
write mode, screen co-ordinates, or fonts, during a single STRDIS call. 

The following table specifies which registers are loaded for a given 
code. The order in which the new register data follows the code, is 
also represented. 


64H 

C 

72H 

IX, D 

65H 

E,C 

73H 

IX ,E ,D 

66H 

D,C 

74H 

IX, C 

67H 

E,D,C 

75H 

IX,E,C 

68H 

NONE 

76H 

IX ,D ,C 

69H 

E 

77H 

IX ,E ,D,C 

6AH 

D 

78H 

IX 

6BH 

E,D 

79H 

IX, E 

6CH 

C 

7AH 

IX, D 

6DH 

m 

** 

o 

7BH 

IX ,E ,D 

6EH 

D,C 

7CH 

IX, C 

6FH 

E,D,C 

7DH 

IX,E,C 

70H 

IX 

7EH 

IX,D,C 

71H 

IX, E 

7FH 

IX,E,D,C 


SCREEN VECTORING - VECTORING ROUTINES 


Most games involve moving patterns. Most moving patterns move along 
a line. The home video game operating system provides the vectoring 
routines to facilitate programming such pattern motion. 

The vectoring routines work with a memory array called a vector. 
Represented within this vector are the co-ordinates of an object, the 
velocities of the object, and the necessary status information to 
control the object. By periodically invoking the vectoring routine, this 
data is updated and can be used to direct the motion of a pattern. 

More formally, a vectored object possesses an X and Y co-ordinate. 
Associated with these co-ordinates are velocities AX and AY, 
which are added to X and Y every time increment. Since the screen is 
finite, there also exists two upper and two lower limits X LU » X^ , 

Y^y , and Y^, the attainment of which requires some response. 

The HVGSYS vectoring routine allows for two different responses to 
a limit attained. Either the sign of the delta is reversed or vectoring 
is stopped for this co-ordinate. This is specified by a flag byte. 

When attainment occurs, this fact is indicated by a status byte. Also 
the co-ordinate is set equal to the limit that was attained, preventing 
over-shoot. 

Utilization of the vectoring routines involves a number of user respon- 
sibilities. The user must properly initialize certain fields in the 
vector array. He must increment the time base byte, and periodically 
call the vectoring routine. Status bits must be checked and writing must 
be done. 

To insure high-accuracy, co-ordinates and deltas are double-precision. 

The assumed binary "decimal point" is between the high and low order byte. 

The following diagrams explain the layout of the vector array and the 
attendant user responsibilities. 


VECTOR BLOCK 


BYTE 

FUNCTION 

HV6LIB 

NAME 

0 

MAGIC REGISTER 

VBMR 

1 

VECTOR STATUS 

VBSTAT 

2 

TIME BASE 

VBTIMB 

3 

AX 

VBDXL 

4 

VBDXH 

5 

Y 

VBXL 

6 

/\ 

VBXH 

7 

X CHECKS MASK 

VBXCHK 

8 

AY 

VBDYL 

9 

VBDYH 

10 

Y 

VBYL 

II 

1 

VBYH 

12 

Y CHECKS MASK 

VBYCHK 

13 

OLD SCREEN 

VBOAL 

14 

ADDRESS 

VBOAH 


- DO NOT USE BIT 7 


- INCREMENTED BY USER 


- MAINTAINED BY USER 



VECTOR STATUS DETAIL 


ACTIVE 

BLANK 

1 

1 1 

NOT USED 

“1 

1 

VBSACT 

VBBLNK 

1 

1 1 
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ACTIVE Set by user to indicate that vector is active. The 

vectoring routines will do no processing if reset. 

BLANK Must be initialized by user to reset state. Thereafter 

this bit is maintained by the VWRIT and VBLANK 
system routines. 


CHECKS MASK DETAIL 


1 1 1 

LIMIT 

NOT 

REVERSE 

DELTA 

LIMIT 

NOT USED 

ATTAINED 

SIGN 

CHECK 

1 1 1 

VBCLAT 

USED 

VBCREV 

VBCLMT 


LIMIT CHECK 
REVERSE DELTA 


LIMIT ATTAINED 


Set by user to indicate that this co-ordinate is 
to be limit checked. 

Set by user to indicate that when this co-ordinate 
attains it's limit, the sign of the associated delta 
is to be reversed. This can be used to cause objects 
to 'bounce' off barriers. 

Set by system if the limit was attained this call. 
Otherwise it is reset. If the delta was not changed, 
either by Reverse Delta or user, this bit will stay set. 




SCREEN VECTORING VECT 
VECTOR OBJECT IN TWO DIMENSIONS 


Calling Sequence: 


Arguments : 
Output: 


SYSTEM VECT 
or 

SYSSUK VECT 

DEFW (Vector address) 

DEFW (Limit table) 

HL=Limit table address 
IX=Vector address (points at VBMR) 
C =Time base used 
Z =True, if it did not move 


Description: 

If the vector is inactive, control is returned immediately. Otherwi 
VECTC is called for X, then Y. The zero status is determined by 
comparing the new co-ordinate value with it's old value. If the 
high-order byte changed, then the object moved. Zero status set if 
object did not move, reset if object moved. 
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SCREEN VECTORING VECTC 
VECTOR A CO-ORDINATE 

Calling Sequence: 


Arguments : 


Description: 

This routine operates on the subset of the vector array associated with 
a single co-ordinate. This subset consists of the delta co-ordinate 
and checks mask. This entry is provided so special vectoring schemes 
may be implemented such as 1 dimensional or 3 dimensional vectoring. 

This entry adds the delta to the co-ordinate time base times. It then 
performs the limit checks for the co-ordinate if optioned. 

Note that this entry does not interrogate or alter any bytes in the 
vector array outside of the defined subset. Hence the active bit 
isn't checked. 


SYSTEM VECTC 
or 

SYSSUK VECTC 

DEFW (co-ordinate address) 

DEFW (Limit table) 

IX=Pointer to low-order byte of delta for co-ordinate 
HL=Limits table for this co-ordinate (if required) 

C =Time base to use 
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SCREEN RELABS 

CONVERT RELATIVE CO-ORDINATES TO ABSOLUTE MAGIC ADDRESS AND 
SET UP MAGIC REGISTER 

Calling Sequence: SYSTEM RELABS 

or 

SYSSUK RELABS 

DEFB (Magic register value) 

Arguments: A =Magic register value to set 

D =Y co-ordinate 
E =X co-ordinate 

Output: A =Magic register value, with proper shift amount set 

DE=Absolute memory address (MAGIC) 

Description: 

The low-order two bits of the X co-ordinate are inserted into the magic 
register value bitstring. The absolute memory address corresponding to 
the co-ordinate is computed, taking into consideration the value of the 
flopped bit. The co-ordinate systems used are shown below. 


0 > 159 !59 < 0 
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SCREEN RELAB1 

CONVERT RELATIVE ADDRESS TO ABSOLUTE NORMAL ADDRESS 


Calling Sequence: 


Arguments : 


Output: 


SYSTEM RELAB1 
or 

SYSSUK RELAB1 

DEFB (Magic register value) 

A =Magic register value to combine with shift amount 
D =Y co-ordinate 
E =X co-ordinate 

A ^Combined magic register value 
DE=Absolute normal address (not magic) 


Description: 

This routine is identical to RELABS except that a non-magic address 
is returned and the hardware magic register is not set. The flopped 
bit is interrogated and the flopped co-ordinate system is used, 
if optioned. 



SCREEN COLSET 
SET COLOR REGISTERS 

SYSTEM COLSET 
or 

SYSSUK COLSET 

DEFW (Address of color list) 

HL=Color list laid out 
C0L3L=first to 

COLOR last ie: COLOR would be at a higher 
address than C0L3L 

Description: 

This routine sets color registers and saves address of colors for 
use by PIZBRK and BLAKOUT for color restoration. 


Calling Sequence: 


Inputs : 



47 


HUMAN INCSCR 

INCREMENT SCORE AND COMPARE TO END SCORE 

Calling Sequence: SYSTEM INCSCR 

or 

SYSSUK INCSCR 

DEFW (address of score) 

Arguments: HL=Address of score (must be 3 bytes long) 

Output: Score incremented and optionally game over bit set 

Description: 

The 3 byte score pointed at by HL (BCD with low-order byte at lowest 
address) is incremented (by 1) and compared to the end score (ENDSCR). 

If the end score bit (GSBSCR) was set in the game status byte (GAMSTB) 
and end score has been reached, then the game over bit (GSBEND) is set 
in the game status byte. 



HUMAN PAWS 


PAUSE 

Calling Sequence: 


Arguments : 

Description: 

This routine provides 
If used with ACT INT, 
does an El upon entry 


SYSTEM PAWS 
or 

SYSSUK PAWS 

DEFB (number of interrupts) 
ES=Number of interrupts to wait 


for a pause for certain number of interrupts. 
60 will be a 1-second pause. This routine 
and assumes interrupts will occur. 



HUMAN KEYBOARD KCTASC 
KEY CODE TO ASCII 


Calling Sequence: 
Arguments : 

Output: 

Description: 


SYSTEM KCTASC 
B=Key code (not loaded) 

A=ASCII equivalent of keycode 
This routine does a table look-up 


KEYCODE 

NAME 

GRAPHIC 

HEX VALUE 

1 

Clear 

C 

43 

2 

Up Arrow 

* 

5E 

3 

Down Arrow 

* 

5C 

4 

Percent 

l 

25 

5 

Recal 1 

MR 

52 

6 

Store 

MS 

53 

7 

Change sign 

CH 

3B 

8 

Divide 

■f 

2F 

9 

7 

7 

37 

10 

8 

8 

38 

11 

9 

9 

39 

12 

Times 

X 

2A 

13 

4 

4 

34 

14 

5 

5 

35 

15 

6 

6 

36 

16 

Mi nus 

- 

2D 

17 

1 

1 

31 

18 

2 

2 

32 

19 

3 

3 

33 

20 

Plus 

+ 

2B 

21 

Clear Entry 

CE 

26 

22 

0 

0 

30 

23 

Decimal point 

# 

2E 

24 

Equals 

= 

3D 



HUMAN CONTROLS & KEYPAD SENTRY 
SENSE TRANSITION 

Calling Sequence: 


Arguments : 

Description: 

SENTRY checks for changes in the potentiometers (pots), control 
handles, triggers, keypad, semiphores and counter/timers. It also 
takes care of blackout. Blackout is the automatic blacking-out of 
the screen after 255 seconds without a change. If SENTRY isn't called 
then the game will not black out. 

SENTRY checks if TIMOUT equals 0 on entry and if zero, it goes to 
PIZBRK. If a key has gone down or a control handle changed, then TIMOUT 
is set to FFH. 

HL should point at a keypad mask. The keypad consists of 6 rows 
by 4 columns. 


Example mask of 

DEFB 

011100B 

just 0-9 

DEFB 

111100B 


DEFB 

011100B 


DEFB 

000000B 


SYSTEM SENTRY 
or 

SYSSUK SENTRY 

DEFW (Key mask address) 

DE=Keypad mask table 


See diagram on following page. 
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1 

c 

2 

f 

3 

4r 

4 

% 

5 MR 

6 MS 

CH 

8 

• 

1 

9 

7 

1 0 

8 

II 

9 

12 

X 

13 

4 

14 

5 

15 

6 

16 

17 

1 

18 

2 

19 

3 

20 

+ 

21 

CE 

22 

0 

23 

• 

24 


0 

1 

2 MASK 

BIT 

3 NUMBER 

4 

5 


12 3 4 

MASK BYTE NUMBER 



KEY NUMBER 


FUNCTION 






Output: 


A=Return code 
B=Extended code 


PRIORITY 

A^ 

MEANING 


SNUL 

Nothing changed 

1 

SCT0 

Counter/timer 0 decremented to 0 


to 


1 

SCT7 

Counter/timer 7 decremented to 0 

2 

SF0 

SEMI4S bit 0 was 1 


to 


2 

SF7 

SEMI4S bit 7 was 1 

4 

SSEC 

1 second has elapsed since the last SSEC 

5 

SKYU 

Keypad went from down to up B=0 

5 

SKYD 

Key is down B=key number 

3 

SP0 

Pot 0 changed B=new value 


to 


3 

SP3 

Pot 3 changed B=new value 

6 

SJ0 

Joystick 0 changed B=new value 


to 


6 

SJ3 

Joystick 3 changed B=new value 

6 

ST0 

Trigger 0 changed B=new value 


to 


6 

ST3 

Trigger 3 changed B=new value 


Notes: 

The potentiometers (pots) are debounced. New trigger value=Trigger 
off (0) or trigger on (10H). When switches are actuated simultaneously 
the order of return is: SCT7 to SCT0, SF7 to SF0, SP0 to SP3, SSEC, 

SKYU, SKYD, SJ0, ST0, SJ1, ST1, SJ2, ST2, SJ3 , ST3 . 



HUMAN CONTROL DOIT 
RESPOND TO INPUT TRANSITION 


Calling Sequence: SYSTEM DOIT 

or 

SYSSUK DOIT 
DEFW (Do table) 

Arguments: A =SENTRY return code 

B =Extended return code 
HL=Do table address 

Description: 

The SENTRY return code is used to search the DOTABLE, If the 
transition is present in DOTABLE, then control is transferred to the 
associated handling routine. The handling routine may be MACRO or 
machine instructions. The routine receives registers as they are on 
DOIT entry. If no transition is found, execution continues at the 
first instruction following call. The DOTABLE is a linear list 
composed of 3 bytes entries, 1 entry per SENTRY return code. 


tran/sfer 

TYfE 


1 1 r 

RETURN CODE 
J I L 


HANDLER ADDRESS 


Where transfer type designates how handler address is to be transferred 
to. The codes are: 00=JMP to machine language routine and pop 

context; 01=RCALL machine language routine in current context; 10=MCALL 
interpreter routine in current context. Mode 01 and 10 expect the 
returned- to point to be interpretive, mode 0 expects it to be machine 
instructions. 

End of list is indicated by a terminator byte which is greater than or 
equal to C0H. 




HUMAN CONTROL 
"COFFEE BREAK 


PIZBRK 

BLACK OUT SCREEN AND WAIT FOR KEY 


Calling Sequence: SYSTEM PIZBRK 

or 

SYSSUK PIZBRK 
Input: NONE 

Output: NONE 

Description: 

This routine blacks out the screen and waits for either a key press 
or a trigger or a joystick change. 

This function should be called whenever a "hold until further notice" 
is needed. 

All keys on the keypad are enabled. Interrupts are disabled on 
entry and enabled on exit. It is a good idea to reset any 60th of a 
second timers on exiting PIZBRK. 
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HUMAN CONTROLS EXAMPLE 


This routine echoes number keys and takes a coffee break on trigger 
0 being pulled. Assumes SP is set and screen erases. 



SYSTEM 

INTPC 


LOOP: 

DO 

SENTRY 



DEFW 

NUMBAS 



DO 

DOIT 



DEFW 

DTAB 



DO 

MJUMP 



DEFW 

LOOP 


NUMBAS: 

DEFB 

011100B 

;NUMBER KEYS ONLY 


DEFB 

111100B 



DEFB 

011100B 



DEFB 

0 


DTAB : 

MC 

SKYD,SHOW 

;ON KEY DOWN MACRO CALL 


MC 

ST0,PBREAK+END 

;ON TO MACRO CALL 

SHOW: 

DO 

KCTASC 

CONVERT TO ASCII 


DO 

SUCK 



DEFB 

000001 1 IB 

;X,Y=0=DE 


DEFB 

11001100B 

;OPTIONS=C 


DONT 

CHRDIS 

DISPLAY CHAR 


MRET 


;BACK TO LOOP 

PBREAK: 

DO 

PIZBRK 

;COFFEE BREAK 


DO 

MRET 

;BACK TO LOOP 
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INTERRUPT MUSIC PROCESSOR 

The music processor can be thought of as an independent CPU handling 
all output to the music/noise ports. The MUZCPU has 4 registers: 


MPC: 

Like all program counters, points to the next 
data byte to fetch. 

MSP: 

Like a stack pointer, points to return 
addresses on the stack. 

DURATION: 

Is loaded at the start of a note and then 
decremented every 60th of a second 

VOICES: 

Is a status register. It tells which voices 
(tones) to load with what data. 


The voices status register is shown below. Execution proceeds 
right- to-left. Make sure that you always have at least one PC 
incrementing bit or load on. 


INC 

OUT 

INC 

OUT 

INC 

OUT 

OUT 

OUT 

PC 

TONE A 

PC 

TONE B 

PC 

TONE C 

VIBRA 

VOLN 
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MUZCPU INSTRUCTION SET 


# OF BYTES MNEMONIC COMMENT 


2 

2 

3 

1 

3 

2 

3 

4 

5 

6 
2 

1 

2 

9 

3 

1 

1 

3 

1 


Note: 


VOICES, (data) 
MASTER, (data) 
CALL, (address) 
RET 

JP, (address) 

NOTE1 

N0TE2 

N0TE3 

N0TE4 

NOTE5 

REST 

QUIET 

OUTPUT 

OUTPUT 

VOLUME 

PUSHN 

CREL 

DSJNZ 

LEGSTA 


VOICES=(data) 

TONE0=(data) 

(SP)=(PC+3) PC=address 
PC=(SP++) 

PC=address 

Duration, note or data (Dl) 

Duration, D1,D2 
Duration, D1,D2,D3 
Duration, D1,D2,D3,D4 
Duration, Dl ,D2,D3,D4,D5 
Duration in 60ths of a second 
Pauses silently (except legato) 

Stops music and sets volume=0 
Port #, Data 

SNDBX ,DATA10 ,D11 ,D12,D13,D14,D15,D16,D17 
(VOLAB) , (VOLMC) sets volume for notes 
Push # between 1-16 onto the stack 
Call relative to next instruction 
decrement stack top and jump 
if not 0, else pop stack 
flips between STACATO and LEGATO modes 
STACATO is clipped 1/60 th before the 
end of each note 

LEGATO allows one note to run into 
the next 


All durations are limited to a maximum of 127 



MUSIC SCORE EXAMPLE 


VOICES 

11010100B 

;ABC=Data 1 

MASTER 

0A1H 

;ABC=Js 

VOLUME 

88H ,08H 


NOTE1 

12 ,A1 


NOTE1 

12, C2 


NOTE1 

24, E2 


NOTE1 

12, C2 


NOTE1 

12, E2 


REST 

6 


VOICES 

111 101 10B 

;Suck in Vibrato, AB and C bytes 

N0TE3 

QUIET 

12,14,A2,E2 
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INTERRUPTS MUSIC BMUSIC 
BEGIN PLAYING MUSIC 

Calling Sequence: SYSTEM BMUSIC 

or 

SYSSUK BMUSIC 

DEFW (Music stack) 

DEFB (voices byte) 

DEFW (Score) 

Arguments: A =Voices to start with 

HL=Music PC (Score) 
IX=Music SP 


Description: 

Quiets any previous music, then interprets "score". See music 
processor for more information. 



INTERRUPTS MUSIC EMUSIC 
STOP MUSIC 

Calling Sequence: 

Arguments : 

Outputs : 

Description: 

Outputs 0 to volume ports and halts music processor. 


SYSTEM EMUSIC 
or 

SYSSUK EMUSIC 

NONE 

NONE 
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INTERRUPTS ACTINT 
ACTIVE INTERRUPTS 

SYSTEM ACTINT 
or 

SYSSUK ACTINT 
NONE 
NONE 

Sets IM=2, I NL IN=200 , sets I reg + INFBK 
Calls TIMEX and TIMEY 
Enables interrupts 

Description: 

Once ACTINT is called, it provides interrupt service completely 
automatically. It runs the seconds timer, the game timer, the music 
processor, and black-out timers, plus CT0, CT1, CT2, CT3. Functions 
as 60th of a second timers. 


Calling Sequence: 

Input: 

Output: 

Function: 



INTERRUPTS TIMERS DECCTS 
DECREMENT COUNTER/TIMERS 


Calling Sequence: 


Input: 

Output: 


SYSTEM DECCTS 
or 

SYSSUK DECCTS 
DEFB (Mask) 

C=Mask indicative which counters to decrement. 
Sentry will notify the program. 


Description: 

Decrements counter if they are non-zero. If any go from 1 to 0 
sentry is notified. 



INTERRUPTS TIMERS 


CTIMER 


Calling Dequence: 
Input: 


CALL CTIMER 

HL=Address of custom time base 
B =Value to load into time base 1 to 0 transiti 
C =CT mask as in DECCTS 


Descri ption: 

HL is loaded and decremented. If it is not = 0, then a return is 
executed. Else, HL is loaded with B and DECCTS is called. 


Registers HL, DE, BC, and AF are undefined upon exit. 
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INTERRUPTS TIMERS STIMER 
DECREMENT TIMERS 


Calling Sequence: 


Input: 

Description: 

Uses: 

Calls: 

Note: 


PUSH 

AF 

PUSH 

BC 

PUSH 

DE 

PUSH 

HL 

CALL 

STIMER 

POP 

HL 

POP 

DE 

POP 

BC 

POP 

AF 

NONE 



STIMER keeps track of game time. If it hits 0, 
then the GSBEND bit in the game status byte is set. 
AF, BC, DE, HL 

Music processor on note (duration) expiration. 

Sets bit 7 of key sex to 1 on every second. 



MOVE MOVE BYTES 


Calling Sequence: 


Arguments : 


Description: 


SYSTEM MOVE 
or 

SYSSUK MOVE 

DEFW (Destination) 

DEFW (Number of bytes) 

DEFW (Source) 

DE=Destination address 

HL=Source address 

BC=Number of bytes to transfer 

MOVE uses LDIR to copy bytes from source 
to destination. 
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INDEXN INDEX NIBBLE 

Calling Dequence: SYSTEM INDEXN 

or 

SYSSUK INDEXN 
DEFW (Base Address) 

Arguemnts: C =Nibble displacement (0 - 255) 

HL=Base address of table 
Output: A = N i b b 1 e value 

Descri ption: 

INDEXN is used to look up a given nibble in a linear list. 
The indexing works like: 





STOREN STORE NIBBLE 


Calling Dequence: 


Arguments : 


Description: 


SYSTEM STOREN 
or 

SYSSUK STOREN 
DEFW (Base address) 

C =Ni bbl e displacement *NOT LOADED 

HL=Base address 

A =Ni bbl e value to store *N0T LOADED 

STOREN is the inverse of INDEXN. 

STOREN works as with INDEXN. 
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INDEXW INDEX WORD 

SYSTEM INDEXW 
or 

SYSSUK INDEXW 
DEFW (Base address) 

A =Displacement (0 - 255) *NOT LOADED 

HL=Base address of table 
DE=Entry looked up 
HL=Address of entry looked up 
Indexing looks like: 

DISPLACEMENT 



I I 

• I I 


Calling Sequence: 

Arguments : 

Output: 

Descri ption: 




INDEXB 


INDEX BYTE 


Calling Sequence: SYSTEM INDEXB 

or 

SYSSUK INDEXB 
DEFW (Base address) 

Arguments: A =Displacement (0 - 255) 

HL=Base address of table 

Output: A =Entry looked up 

HL=Address of entry looked up 

Notes : 

INDEXB returns the byte at address 

(Base address) + (Displacement) 



SETB STORE BYTE 


Calling Sequence: 


Arguments: 
Descri ption: 


SYSTEM SETB 
or 

SYSSUK SETB 

DEFB (Value to store) 

DEFW (Address) 

A =Byte value to store 
HL=Address to be set 

Stores an 8-bit value at a specified address. 



SETW STORE WORD 


Calling Sequence: 


Arguments: 


Description: 


SYSTEM SETW 
or 

SYSSUK SETW 

DEFW (Value to store) 

DEFW (Address) 

DE=Word value to store 
HL=Address to be set 

Stores a 16-bit value at a specified address. 



CASSETTE CONVENTIONS 


Two types of cassettes may be used with the Bally Professional Arcade. 
The first type, called an autostart cassette, is entered immediately 
after reset. The only initialization that is performed before entry 
is the set-up of the stack pointer to point just below system RAM and 
the establishment of "consumer mode" in the custom chips. RAM is not 
altered in this mode. 

The second type, called a standard cassette, is entered after a game 
selection process is completed. Cunsiderably more initialization is 
done by the system before control transfer. 

1) System RAM is cleared to 0 

2) The ACTINT interrupt routine is enabled 

3) The MENU colors are set in the left color map 

4) Vertical blank is set at line 96, horizontal 
boundary at 41, and interrupt mode at 8. 

5) The screen displays the menu frame. 

6) The shifter is cleared. 

An autostart cassette is indicated by a jump instruction (opcode C3H) 
at location 2000H. This jump instruction should branch to the starting 
address of the cassette. 

A standard cassette is indicated by a sentinel byte of 55H at location 
2000H. Following this byte is the first node of the cassette's menu 
data structure. This data structure gives the name and starting 
address of each program in the cassette. (See MENU) 



When the user has selected a cassette game, control is transferred 
to the starting address with the address of the program name string 
in the registers. The cassette program will use the GETPAR system 
routine to prompt for game parameters such as score to play to, 
game time limit or number of layers. 

The cassette has access to the six unused restart instructions. See 
the following cassette diagram for the transfer vectors. 
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BYTE 



> 


> 




SENTINEL 


MENU NODE FOP 
FIRST GAME ON 
CASSETTE 


THESE CELLS 
MAY BE USED 
FOR PROGRAM 
IF THE 
ASSOCIATED 
RST OR HOOK 
IS NOT USED 
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HUMAN GETPAR 
GET GAME PARAMETER 

SYSTEM GETPAR 
or 

SYSSUK GETPAR 
DEFW (Prompt) 

DEFB (Digits) 

DEFW (Parameter) 

A =Number of digits to get 
BC=Address of prompt string 
DE=Title string address *N0T LOADED 

HL=Address of parameter to get 

Description: 

A menu frame is created displaying the title passed in DE at the top. 
The message "ENTER" is displayed in the center of the screen followed 
by the prompt string. GETNUM is entered with feedback specified 
in 2X enlarged characters. After entry is complete, GETPAR pauses 
for % second to allow user to see his entry and then returns. 

Notes: 

See entry conditions and resource requirements for menu. 

Prompt string example: "# OF PLAYERS" 

The title string address (DE) is usually the title returned from MENU. 
The address of parameter to get (HL), HL points at the low-order byte 
of BCD number in RAM. 


Calling Sequence: 


Arguments: 



HUMAN MENU 

DISPLAY MENU AND BRANCH ON SELECTION 


Calling Sequence: 


Arguments : 

Output: 

Description: 

The title is displayed at the top of the screen. Each entry in the 
menu list is then displayed with a preceding number supplied by MENU. 
GETNUM is called to get the selection number. The menu list is searched 
for the selected node and it is jumped to. 

Notes: 

A maximum of eight entries may appear. 

On entry, MENU expects interrupts to be enabled, colors and boundaries 
to be set up. MENU uses 96 lines of screen, creams the alternate set, 
and requires three levels of context. MENU calls SENTRY and thus 'eats' 
all irrelevant transitions. 


ADDRESS OF NEXT NODE ON LIST 
ZERO IF THIS NODE IS LAST 

ADDRESS OF NAME OF THIS SELECTION 
THIS IS WHAT IS PASSED IN DE 



SYSTEM MENU 
or 

SYSSUK MENU 
DEFW (Title) 

DEFW (List) 

DE=Address of menu title string 
HL=Address of menu list 
DE=String address of selection mode 


WHERE TO BRANCH TO IF THIS 
SELECTION IS SELECTED 




HUMAN GETNUM 
GET NUMBER 


Calling Sequence: 


Arguments: 


SYSTEM GETNUM 
or 

SYSSUK GETNUM 
DEFB (X address) 

DEFB (Y address) 

DEFB (CHRDIS options) 

DEFB (DISNUM options) 

DEFW (Number address) 

B =Display number routine options 
C Character display routine options 
DE=Y,X co-ordinate for feedback 
HL=Address of where to put entered number 


Description: 

This routine inputs a number from either the keypad or the pot on 
control handle of player one. Keypad entry has priority. The routine 
exits when the specified number of digits were entered or = is pressed 
on the keypad. 


Pot entry is enabled by pressing the trigger. The current pot value is 
then shown. Twist the pot until the number you want is shown. Then 
press the trigger again to complete entry. The pot can only enter 1 
or 2 digits. If a group of numbers is being entered, the user must 
enable entry for each new number. 


78 


DISPLAY NUMBER OPTIONS 


ZERO 

ALT 

SUPP 

FONT 


NUMBER OF DIGITS TO DISPLAY/ ACCEPT 


CHARACTER DISPLAY OPTIONS 





79 


HUMAN MSKTD 
JOYSTICK MASK TO DELTAS 

Calling Sequence: SYSTEM MSKTD 

or 

SYSSUK MSKTD 

DEFW (X Delta) 

DEFB (Flop-flag) 

DEFW (Y Delta) 

Arguments: B Joystick mask *N0T LOADED 

C =Flop flag 
DE=X positive delta 
HL=Y positive delta 
Output: DE=X Delta 

HL=Y Delta 

Description: 

This routine uses the joystick mask and flop flag to conditionally 
modify the passed deltas. If negative direction is indicated, the delta 
is 2's complemented; if no direction is indicated, 0 is returned. 


Note: 


B is not sucked. 



MATH RANGED 
RANGED RANDOM NUMBER 


Calling Sequence: SYSTEM RANGED 

or 

SYSSUK RANGED 
DEFB (N) 

Arguments: A=N where 0 is less than or equal to a random 

numner less than N 

(ie: for a random number of 0,1, or 2, N=3) 
Output: A=Random Number 

Notes; 

If N is a power of 2, it is considerably faster to use N=0 which causes 
an 8-bit value to be returned without ranging. Use an AND instruction 
to range it yourself. 

This routine uses a polynomial shift register RANSHT in system RAM. 
RANGED is called in GETNUM while waiting for game selection/ parameter 
entry. Thus each execution of a program will receive different random 
numbers. For 'predictable' random numbers, alter RANSHT yourself after 
parameter acceptance. 



INTRODUCTION 


The Bally Professional Arcade is a full-color video game system based 
on the mass-ram-buffer technique. A mass-ram-buffer system is one in 
which one or more bits of RAM are used to define the color and 
intensity of a pixel on the screen. The picture on the screen is 
defined by the contents of RAM and can easily be changed by modi- 
fying RAM. 

The system uses a Z-80 Microprocessor as it's main control unit. The 
system ROM has software for four fames: Gunfight, Checkmate, 

Scribbling, and Calculator. Additional ROM can be accessed through 
the silicon cassette connector. Three custom chips are used for 
the video interface, special video processing functions, keyboard 
and control handle interface, and audio generation. 

The system exists in both high-resolution and low-resolution models. 
The three custom chips can operate in either mode. The mode of opera- 
tion is determined by bit 0 of output port 8H. It must be set to 0 
for low-resolution and 1 for high-resolution. This bit is not set 
to 0 at power up and must be set by software before any RAM operations 
can be performed. 



MEMORY MAP 


In both the low and high resolution models, the operating system 
ROM is in the first 8K of memory space. The silicon cassette ROM 
is in the space from 8K to 16K. The standard screen RAM begins at 
16K. In the low-resolution unit, standard screen RAM is 4K bytes; 
in the high-resolution unit it is 16K bytes. Magic screen RAM begins 
at location 0. It is the same size as standard screen RAM. All 
memory above 32K is available for expansion. In the low-resolution 
unit, memory space 20K - 32K is available for expansion. 

When data is read from a memory location between 0 and 16K the data 
comes from the ROM. When data is written in a memory location (X) 
between 0 and 16K, the system actually writes a modified from of the 
data in location X+16K. The modification is performed , by the magic 
system in the Data Chip and Address Chip. Thus the RAM from 0 to 16K 
is called Magic Memory. 
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OPERATING 
SYSTEM ROM 


SCREEN RAM 


AVAILABLE 
FOR EXPANSION 


MEMORY MAP high resolution 








SCREEN MAP 


In the Bally Professional Arcade, two bits of RAM are used to define 
a pixel on the screen. One 8-bit byte of RAM therefor defines four 
pixels on the screen. 

In the low-resolution model there are 40 bytes used to define a line 
of data. This gives a horizontal resolution of 160 pixels. The 
vertical resolution is 102 lines. The screen therefor requires 
102 X 40 = 4,080 bytes. The remaining 16 bytes of the 4K RAM are used 
for scratch pad. More of the RAM can be used for scratchpad by blanking 
the screen before the 102nd line. This will be described later. 

In the high-resolution model there are 80 bytes and 320 pixels per line. 
The 204 lines require 16,320 bytes of RAM. 64 bytes of the 16K RAM are 
left for scratch pad. 

In both models the first byte of RAM is in the upper left-hand corner 
of the screen. As the RAM address increases, the position on the screen 
moves in the same directions as the TV scan; from left-to-right and 
from top-to-bottom. The four pixels in each byte are displayed with 
the least significant pixel, the one defined by bits 0 and 1, on 
the right. 




SCREEN MAP low resolution 



BYTE 4000H BYTE 404FH 



SCREEN MAP high resolution 



COLOR MAPPING 


Two bits are used to represent each pixel on the screen. These two 
bits, along with the LEFT/RIGHT bit which is set by crossing the hori- 
zontal color boundary, map each pixel to one of eight different color 
registers. The value in the color register then defines the color and 
intensity of the pixel on the screen. The intensity of the pixel is 
defined by the three least significant bits of the register, 000 for 
darkest and 111 for lightest. The color is defined by the five most 
significant bits. The color registers are at output ports 0 through 7; 
register 0 at port 0, register 1 at port 1, etc. 

The color registers can be accessed as individual ports ar all eight 
can be accessed by one OTIR instruction. The OTIR instruction is to 
port BH (register C=BH) and register B should be set to 8. The eight 
bytes of data pointed to by HL will go to the color registers 

HL — »• Memory Location X Color Register 7 

X+l Color Register 6 

X+2 Color Register 5 

X+3 Color Register 4 

X+4 Color Register 3 

X+5 Color Register 2 

X+6 Color Register 1 

X+7 Color Register 0 

The horizontal color boundary (bits 0-5 of port 9) defines the hori- 
zontal position of an imaginary vertical line on the screen. The 
boundary line can be position between any two adjacent bytes in the low- 
resolution system. The line is immediately to the left of the byte 
whose number is sent to bits 0-5 of port 9. For example, if the hori- 
zontal color boundary is set to 0, the line will be just to the left of 
byte 0; if it is set to 20, the line will be between bytes 19 and 20 in 
the center of the screen. 



If a pixel is to the left of the boundary, its LEFT/RIGHT bit is set 

to 1. The LEFT/RIGHT bit is set to 0 for pixels to the right of the 

boundary. Color registers 0-3 are used for pixels to the right of the 
boundary and registers 4-7 are used for pixels to the left of the 
boundary. 

In the high-resolution system, the boundary is placed in the same 
position on the screen but between different bytes. If the value X 
is sent to the horizontal color boundary, then the boundary will be 
between bytes 2X and 2X-1. If the value 20 is sent, the boundary will 
be between 39 and 40, in the center of the screen. 

To put the entire screen, including the right side background, on 

the left side of the boundary, set the horizontal color boundary to 44. 


BACKGROUND COLOR 


On most television the area defined by RAM is slightly smaller than the 
screen. There is generally extra space on all four sides of the RAM 
area. The color and intensity of this area is defined by the background 
color number (bits 6 and 7 of port 9). These two bits, along with 
the LEFT/RIGHT bit point to one of the color registers which determines 
the color and intensity. 



VERTICAL BLANK 


The Vertical Blank Register (output port AH) contains the line number 
on which vertical blanking will begin. In the low-resolution system 
bit 0 should be set to 0 and the line number should be in bits 1-7. 

In the high-resolution system the line number is in bits 0-7. The 
background color will be displayed from the vertical blank line to the 
bottom of the screen. This allows the RAM that would normally be 
displayed in that area to be used for scratch pad. If the vertical 
blank register is set to 0 the entire RAM can be used for scratch pad. 
In a low-resolution system the register must be set to 101 or less; 
in a high-resolution system it must be set to 203 or less. 

SUMMARY 


The following color register map shows which color registers are used 
to define colors in different areas of the screen. The map assumes the 
background color is set to 0. If it were set to 1 then color registers 
1 and 5 would be used for background instead of 0 and 4. In the low- 
resolution system the color boundary is between bytes X and X-l. In 
the high-resolution system the boundary is between bytes 2X and 2X-1. 






INTERRUPT FEEDBACK 


When the Z-80 acknowledges an interrupt it reads 8 bits of data from 
the data bus. It then uses this data as an instruction or an address. 

In the Bally Professional Arcade this data is determined by the contents 
of the interrupt feedback register (output port DH). In responding 
to a screen interrupt the contents of the interrupt feedback register 
are placed directly on the data bus. In responding to a light pen 
interrupt the lower four bits of the data bus are set to 0 and the upper 
four bits are the same as the corresponding bits of the feedback register. 

INTERRUPT CONTROL BITS 


In order for the Z-80 to be interrupted the internal interrupt enable 
flip-flop must be set by an El instruction and one or two of the external 
interrupt enable bits must be set (output port EH). If bit 1 is set, 
light pen interrupts can occur. If bit 3 is set, screen interrupts can 
occur. If both bits are set, both interrupts can occur and the screen 
interrupt has higher priority. 

The interrupt mode bits determine what happens if an interrupt occurs 
when the Z-80's interrupt enable flip-flop is not set. Each of the two 
interrupts may have a different mode. In mode 0 the Z-80 will continue 
to be interrupted until it finally enables interrupts and acknowledges 
the interrupt. In mode 1 the interrupt will be discarded if it is not 
acknowledged by the next instruction after it occured. If mode 1 is used 
the software must be designed such that the system will not be executing 
certain Z-80 instructions when the interrupt occurs. The opcodes of 
these instructions begin with CBH, DDH , EDH, and FDH. 

The mode bit for light pen interrupt is bit 0 of port EH and the mode bit 
for screen interrupt is bit 2 of port EH. 



SCREEN INTERRUPT 


The purpose of the screen interrupt is to synchronize the software 
with the video system. The software must send a line number to the 
interrupt line register (output port FH). In the low-resolution system 
bit 0 is set to 0 and the line number is sent to bits 1-7. In the high- 
resolution system the line number is sent to bits 0-7. If the screen 
interrupt enable bit is set, the Z-80 will be interrupted when the video 
system completes scanning the line in the interrupt register. This 
interrupt can be used for timing since each line is scanned 60 times 
a second. It can also be used in conjunction with the color registers 
to make as many as 256 color-intensity combinations appear on the screen 
at the same time. 


LIGHT PEN INTERRUPT 


The light pen interrupt occurs when the light pen trigger is pressed 
and the video scan crosses the point on the screen where the light pen 
is. The interrupt routine can read two registers to determine the 
position of the light pen. The line number is read from the vertical 
feedback register (input port EH). In the high-resolution system the 
line number is in bits 0-7. In the low-resolution system the line number 
is in bits 1-7, bit 0 should be ignored. The horizontal position of the 
light pen can be determined by reading input port FH and subtracting 8. 

In the low-resolution system the resultant value is the pixel number, 

0 to 159. In the high-resolution system the resultant must be multi- 
plied by two to give the pixel number, 0 to 358. 



MAGIC REGISTER 


As described earlier, the Magic System is enable^ when data is written 
to a memory location (X) from 0 to 16K. A modified form of the data is 
actually written in memory location X+16K. The magic register (output 
port CH) determines how the data is modified. The purpose of each bit 
of the magic register is shown below. 


Bit 0 LSB of shift amount 

1 MSB of shift amount 

2 Rotate 

3 Expand 

4 OR 

5 XOR 

6 Flop 


The order is which magic functions are performed is as follows: 
Expansion is done first; rotating or shifting; flopping; OR or XOR. 
As many as four can be used at any one time and any function can be 
bypassed. Rotate and shift as well as OR and XOR cannot be done at 
the same time. 



EXPAND 


The expander is used to expand the 8 bit data bus into 8 pixels (or 
16 bits). It expands a 0 on the data bus into a two-bit pixel and a 

1 into another two-bit pixel. Thus, two-color patterns can be stored 
in ROM in half the normal memory space. 

During each memory write instruction using the expander, either the 
upper half or the lower half of the data bus is expanded. The half 
used is determined by the expand flip-flop. The flip-flop is reset by 
an output to the magic register and is toggled after each magic memory 
write. The upper half of the data bus is expanded when the flip-flop 
is 0, and the lower half when the flip-flop is 1. 

The expand register (output port 19H) determines the pixel values 
into which the data bus will be expanded. A 0 on the data bus will be 
expanded into the pixel defined by bits 0 and 1 of the expand register. 
A 1 on the data bus will be expanded into the pixel defined by bits 

2 and 3 of the expand register. 

The pixels generated by bit 0 or 4 of the data bus will be the least 
significant pixel of the expanded byte. The most significant pixel 
will come from bit 3 or 7. 



SHIFTER 


The shifter, flopper, and rotator operate on pixels rather than bits. 
Each byte is thought of as containing four pixels, each of which has 
one of four values. The four pixels are referred to as P 0, PI, P2, 
and P3. P0 is composed of the first two bits of the byte. 

The shifter shifts data 0, 1, 2, or 3 pixels to the right. The shift 
amount is determined by bits 0 and 1 of the magic register. The pixels 
that are shifted out of one byte are shifted into the next byte. 0's 
are shifted into the first byte of a sequence. The shifter assumes the 
first byte of a sequence is the first magic memory write after an output 
to the magic register. Each sequence must be initialized by an output 
to the magic register and data cannot be sent to the magic register in 
the middle of a sequence. 


FLOPPER 


The output of the flopper is a mirror image of it's input. Pixel 0 
and 3 exchange values as do pixel 1 and 2. 


The diagrams on the following page show examples of shifting 
and flopping. 

















































ROTATOR 


The rotator is used to rotate a 4 X 4 pixel image 90° in a clock- 
wise direction. The rotator is initialized by an output to the magic 
register and will re- initial ize itself after every eight writes to 
magic memory. To perform a rotation, the following procedure must be 
performed twice. Write the top byte of the unrotated image to a location 
in magic memory. Write the next byte to the first location plus 80, the 
next byte to the first location plus 160, and the last byte to the first 
location plus 240. After eight writes the data will appear in RAM and 
on the screen rotated 90° from the original image. 

The rotator can only be used in commercial mode. 

The diagram on the following page shows an example of rotating. 
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OR AND XOR 


These functions operate on a byte as 8-bits rather than four pixels. 

When the OR function is used in writing data to RAM, the input to the 
OR circuit is ORed with the contents of the RAM location being accessed. 
The resultant is then written in RAM. 

The XOR function operates in the same way except that the data is 
XORed instead of ORed. 

INTERCEPT 


Software reads the intercept register (input port 8H) to determine if 
an intercept occured on an OR or XOR write. An intercept is defined as the 
writing of a non-zero pixel in a pixel location that previously contained 
a non-zero pixel. A non-zero pixel is a pixel with a value of 01, 10, or 11. 
A 1 in the intercept register means an intercept has occured. Bits 0-3 
give the intercept information for all OR or XOR writes since the last 
input from the intercept register. An input from the intercept register 
resets these bits. A bit is set to 1 if an intercept occurs in the 
appropriate position and will not be reset until after the next intercept 
register input. 


Bit 


0 Intercept in pixel 3 in an OR or XOR write since last reset 

1 Intercept in pixel 2 in an OR or XOR write since last reset 

2 Intercept in pixel 1 in an OR or XOR write since last reset 

3 Intercept in pixel 0 in an OR or XOR write since last reset 

4 Intercept in pixel 3 in last OR or XOR write 

5 Intercept in pixel 2 in last OR or XOR write 

6 Intercept in pixel 1 in last OR or XOR write 

7 Intercept in pixel 0 in last OR or XOR write 



PLAYER INPUT 


The system will accomodate up to four player control handles at once. 

Each handle has five switches and a potentiometer. The switches are 
read by the Z-80 on input ports 10H - 13H and are not debounced. 

The switches are normally open and normally feedback 0's. 

The signals from the potentiometers are changed to digital information 
by an 8-bit Analog-to-Digital Convertor. The four pots are on input ports 
1CH - 1FH. All 0's are fedback when the pot is turned fully counter- 
clockwise and all l's when turned fully clockwise. 

The 24-button keypad is read on bits 0-5 of ports 14H-17H. The data 
is normally 0 and if more than one button is depressed, the data should 
be ignored. The keypad will not send back the proper data if any of 
the player control switches are closed. Here again, the buttons are 
not debounced. 


Player control inputs are shown on the following page. 
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MASTER OSCILLATOR 


The frequency of the master oscillator is determined by the contents 
of several output ports. Port 10H sets the master frequency. It is 
given by the following formula: 

. 1789 

Fm " PORT IOH + 1 KhZ 

If bit 4 of output port 15H is set to 1, the master oscillator 
frequency will be modulated by noise. The amount of modulation will be 
set by the 8-bit noise volume register, output port 17H. 

If bit 4 of output port 15H is set to 0, the frequency of the master 
oscillator will be modulated by a constant value to give a vibrato 
effect. The amount of modulation will be set by the vibrato depth 
register (the first 6 bits of output port 14H). The speed of modulation 
is set by the vibrato speed register (upper 2 bits of output port 14H); 
00 for fastest and 11 for slowest. 

Frequency modulation is accomplished by adding a modulation value to the 
contents of port 10H and sending the result to the master oscillator 
frequency generator. In noise modulation, the modulation value is an 
8-bit word from the noise generator. If a bit in the noise volume 
register is set to 0, the corresponding bit in the modulation value 
word will be set to 0. In vibrato modulation, the modulation value 
alternates between 0 and the contents of the vibrato volume register. 

Modulation can be completely disabled by setting the master volume to 0 

if noise modulation is being used, or by setting the vibrato depth 

to 0 when vibrato is used. 
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TONES 


The system contains three tone generators each clocked by the same 
master oscillator. The frequency of Tone A is set by output port 11H, 
Tone B by output port 12H, and Tone C by output port 13H. The 
frequency is given by the following formula: 

F # = s Khz 

T 2 (contents of TONE PORT + I) (PORT IOH + 1) (contents of TONE PORT 4-1) 

The tone volumes are controlled by output ports 15H and 16H. The 
lower 4 bits of port 16H set Tone A Volume, the upper 4 bits sets Tone 
B Volume. The lower 4 bits of port 15H sets Tone C Volume. Noise can 
be mixed with the tones by setting bit 5 of port 15H to 1. In this case 
the noise volume is given by the upper 4 bits of port 17H. In all 
cases a volume of 0 is silence and a volume of all 1 ' s is loudest. 


SOUND BLOCK TRANSFER 


All 8 bytes of sound control can be sent to the audio circuit with 
one OTIR instruction. Register C should be sent to 18H, register 
B to 8H and HL pointing to the 8 bytes of data. The data pointed to 
by HL goes to port 17H and the next 7 bytes of data goes to ports 16H 
through 10H. 


HL — *• Memory Location 


X 

Data-to-port 

17H 

X+l 

Data-to-port 

16H 

X+2 

Data-to-port 

15H 

X+3 

Data-to-port 

14H 

X+4 

Data-to-port 

13H 

X+5 

Data-to-port 

12H 

X+6 

Data-to-port 

11H 

X+7 

Data-to-port 

10H 



105 



AUDIO GENERATOR BLOCK DIAGRAM 













OUTPUT PORTS 


PORT NUMBER 
0H 
1H 
2H 
3H 
4H 
5H 
6H 
7H 
8H 
9H 

AH 

BH 

CH 

DH 

EH 

FH 

10H 

11H 

12H 

13H 

14H 

15H 

16H 

17H 

18H 

19H 


FUNCTION 

Color Register 0 

Color Register 1 

Color Register 2 

Color Register 3 

Color Register 4 

Color Register 5 

Color Register 6 

Color Register 7 

Low/High Resolution 

Horizontal Color Boundary, 
Background Color 

Vertical Blank Register 

Color Block Transfer 

Magic Register 

Interrupt Feedback Register 

Interrupt Enable and Mode 

Interrupt Line 

Master Oscillator 

Tone A Frequency 

Tone B Frequency 

Tone C Frequency 

Vibrato Register 

Tone C Volume, Noise 
Modulation Control 

Tone A Volume, Tone B Volume 

Noise Volume Register 

Sound Block Transfer 

Expand Register 



INPUT PORTS 


PORT NUMBER 


FUNCTION 


8H 

EH 

FH 

10H 

11H 

12H 

13H 

14H 

15H 

16H 

17H 


Intercept Feedback 

Vertical Line Feedback 

Horizontal Address Feedback 

Player 1 Handle 

Player 2 Handle 

Player 3 Handle 

Player 4 Handle 

Keypad Column 0 (right) 

Keypad Column 1 

Keypad Column 2 

Keypad Column 3 (left) 



LIGHT PEN 



SYSTEM BLOCK DIAGRAM 






MICROCYCLER 


The purpose of the microcycl df is to combine the 16-bit Address Bus 
and the 8-bit Data Bus from the Z-80 into one 8-bit Microcycle Data Bus 
to the Data Chip, Address Chip, and I/O Chip. This was done to reduce 
the pin count on the custom chips. 

The Microcycle Data Bus can be in any of four modes. Its mode is 
controlled by MC0 and MCI coming from the Data Chip and RFSH from the 
Z-80. The modes are shown below. 


RFSH MC0 MCI 


Microcycle Data Bus Contents 


0 

0 

0 

0 

1 

1 

1 

1 


0 

0 

A0 

■ A7 

from 

Z-80 

0 

1 

A0 

■ A7 

from 

Z-80 

1 

0 

A0 

- A7 

from 

Z-80 

1 

1 

A0 

- A7 

from 

Z-80 

0 

0 

A0 

■ A7 

from 

Z-80 

0 

1 

A8 

- A15 from Z-80 

1 

0 

D0 

- D7 

from 

Z-80 

1 

1 

D0 

- D7 

to Z- 

-80 


MC0 and MCI change 140 nsec after the rising edge of J. Their changes 
are shown in the timing diagrams of various instruction cycles. 










ADDRESS CHIP DESCRIPTION 


The Microcycle Decoder generates twelve bits of Z-80 address from the 
8-bit Microcycle Data Bus. This address is then fed through MUX I and 
MUX II to MA0-5 which go to the RAM. The Scan Address Generator 
generates a 12-bit address which is used to read video data from the 
RAM. This address goes from 0 to FFFH once every frame (1/60 sec.). 

MUX I sends either the Scan Address or Z-80 Address to its 12 outputs. 

An output of the Scan Address Generator controls MUX I. If the Scan 
Address Generator and the Z-80 request a memory cycle at the same time, 
the Scan Address Generator will have higher priority and the Z-80 will 
be required to wait (by the WAIT output). The Scan Address Generator 
never requires the memory for more than one consecutive memory cycle, 
so the Z-80 is never required to wait for the memory for more than one 
cycle. HORIZ DR and VERT DR synchronize the Scan Address Generator 
with the Data Chip and the TV Scan. 

The purpose of MUX II is to multiplex its 12 inputs to the six address 
bits in the two time slices required for 4K x 1 16 pin RAMS. 

The Memory Cycle Generator controls memory cycles generated by either the Z-80 
or Scan Address Generator. MREQ, RD, Ml, RFSH, and A12-A15 are from the 
Z-80. A12-A15 are fed directly from the Z-80 because if they were brought 

out of the microcycle decoder, they would arrive too late in the memory 
cycle. The RAS0 - RAS3 outputs are used to activate memory cycles. In the 
consumer game, only RAS0 is used to one bank of RAM (4K x 8). In the commercial 
game, all four RAS's are used to control four banks of RAM (16K x 8). WRCTL and 
LTCHDO are control signals to the Data Chip. WRCTL tells the Data Chip when to 
place data to be written to memory on the memory data bus. LTCHDO tells 
the Data Chip when valid data from RAM is present on the memory data bus. 



As mentioned earlier, WAIT is generated when the Z-80 and Scan Address 
Generator both request memory at the same time. WAIT is also generated 
for one cycle every time the Z-80 requests a memory access, even if there 
is no conflict with the Scan Address. This is because the microcycler 
slows down Z-80 memory accesses. The Z-80 address bus and data bus must 
time share the microcycle bus so the Z-80 data reaches the microcycle bus 
very late in the memory cycle. 

The INT Generator generates two types of interrupts to the Z-80; Light 
Pen and Screen interrupts. A screen interrupt is generated when screen 
interrupts are enabled and the TV scan completes a certain line on the 
screen (from 0 to 255). The line at which the interrupt will occur is 
determined by the Z-80. This interrupt can be used for timing since the 
TV rescans every line once every 1/60 sec. A light pen interrupt occurs 
when the light pen interrupt is enabled and LIGHT PEN goes low. The 
current scan address is saved in latches in the Scan Address Generator. 
The Z-80 can read the contents of these latches to determine the scan 
address at the time LIGHT PEN was activated and thus the position of the 
light pen on the screen. 

The I/O Decode circuit is used during Z-80 input and output instructions. 
Z-80 input instructions are used to read the scan address after light pen 
interrupts. Output instructions are used to enable the two interrupts 
and set the line number for screen interrupts. 



LO 

C 


I 

TSL 

< 



x 

Q 

l 

SI 

Q 

X 


O' 


q: 

O' 

Iq 

1 ~ ^ 

=c 

LO 


o 

o 

LU 

|q: 

Is: 

go 

r— 1 

o 






Ll_ 

<c 

t— 1 

XI 

1 — 




c£ 

1 


1 — 1 

Od 





C\J 



LU 





rH 


o 

> 





c 


ADDRESS CHIP BLOCK DIAGRAM 




DATA CHIP DESCRIPTION 


The TV Sync Generator uses 7M and 7M (7.159090 Mhz square waves) to 
generate NTSC standard sync and blank to be sent to the Video Generator. 

It also generates HORIZ DR and VERT DR for synchronization with the 
Address Chip. HORIZ DR occurs once every horizontal line (63.5 usee), 
and VERT DR occurs once every frame (16.6 msec). 

The Shift Register loads parallel data from the memory data bus (MD0 - MD7) 
and shifts it out of its two serial outputs. The TV sync Generator control 
when data is loaded or shifted. In a consumer game, the two outputs of 
the shift register are sent through MUX I to MUX II. In a commercial 
game, SERIAL 0 and SERIAL 1 are sent through the MUX I to MUX II. The 
two bits from MUX I select 8 bits to be sent through MUX II to the Video 
Generator. These 8 bits then determine the analog values of VIDEO, R-Y, 
and B-Y. 2.5V is a 2.5V D C reference level. 

The Clock Generator generates 0G and PX from 7M. These are the clocks 
for the rest of the system. The frequency of PX is half that of 7M 
and the frequency of 0G is half that of PX. 

The Microcycle Generator generates the microcycle control bits, MC0 and 
MCI, from IORQ, MEQ, RD, and Ml, all from the Z-80. 

In memory write cycles WRCTL is activated and the Memory Control circuit 
generates OATEN. The Magic Function Generator takes the data from the 
Z-80 on MUXD0 - D7 and transfers it to MD0 - MD7. If a Magic write is 
being done, the Magic Function Generator will modify the data as required 
before it places it on the memory data bus. 



A Magic write is a memory write cycle in which data is written to a 

location, (X) from 0 to 16K. All memory from 0 to 16K is ROM and cannot 

be modified. The data is modified by the Magic Function Generator and 
is written to location X + 16K. The way in which the data is modified i 

determined by the 7 bits coming from the I/O registers. 

In memory reads, data is transferred from MD0 - MD7 to MUXD0 - MUXD7. 
Also, LTCHDO is activated which causes the data from RAM to be latched 
up in a register in the Magic Function Generator. This latched data 
is used in some magic functions. 

The I/O registers are loaded by output instructions from the Z-80 just 
as in the Address Chip. 





I/O CHIP DESCRIPTION 


The Z-80 communicates with the I/O Chip through input and output 
instructions. The state of an 8 x 8 switch matrix can be read through 
the Switch Scan circuit. When an input instruction is executed, one 
of the SO0-SO7 lines will be activated. When a line is activated, the 
switch matrix will feed back eight bits of data on SI0-SI7. This data 
is in turn fed to the Z-80 through MUXD0 - MUXD7. 

The Z-80 can read the position of four potentiometers (pots) through the 
A-D Converter circuit. The pots are continuously scanned by the A-D 
Converter and the results of the conversions are stored in a RAM in the 
A-D Converter circuit. The Z-80 simply reads this RAM with input 
instructions. 

The Z-80 loads data into the Music Processor with output instructions. 
This data determines the characteristics of the audio that is generated. 
The Music Processor is described in detail below. 



MICROCYCLE 



I/O CHIP BLOCK DIAGRAM 



MUSIC PROCESSOR 


The music processor can be divided into two sections. The first section 
generates the Master Oscillator Frequency and the second section uses the 
Master Oscillator Frequency to generate tone frequencies and the analog 
audio output. The contents of all registers in the Music Processor are 
set by output instructions from the Z-8 0. 

Master Oscillator Frequency is a square wave whose frequency is determined 
by the 8 binary inputs to the Master Oscillator. This 8-bit word is the 
sum of the contents of the Master Oscillator Register and the output 
of the MUX. The MUX is controlled by MUX REG. 

If MUX REG contains 0,then data from the Vibrato System will be fed 
through the MUX. The two bits from the Vibrato Frequency Register 
determine the frequency of the square wave output of the Low Frequency 
Oscillator. The 6-bit word at the output of the AND gates oscillates 
between 0 and the contents of the Vibrato Register. The frequency of 
oscillation is determined by the contents of the Vibrato Frequency 
Register. The 6-bit word, along with two ground bits are fed through 
the MUX to the Adder. This causes the Master Oscillator Frequency to be 
modulated between two values thus giving a vibrato effect. 

If MUX REG contains 1 ,then data from the Noise System will be fed 

through the MUX. The 8-bit word from the Noise Volume Register determines 

which bits from the Noise Generator will be present at the output of the AND gates. 



If a bit in the Noise Volume Register is 0, then the corresponding 
bit at the output of the AND gates will be 0. If a bit in the Noise 
Volume Register is 1, then the corresponding bit at the output of the 
AND gates will be noise from the Noise Generator. This 8-bit word is 
sent through the MUX to the Adder. The Master Oscillator Frequency is 
modulated by noise. 

In the second part of the Music Processor, the square wave from the 
Master Oscillator is fed to three Tone Generator circuits which produce 
square waves at their outputs. The frequency of their outputs is 
determined by the contents of their Tone Generator Register and Master 
Oscillator Frequency. The 4-bit words at the output of the AND gates 
oscillate between 0 and the contents of the Tone Volume Register. These 
4-bit words are sent to D-A Converters whose outputs oscillate between 
GND and a positive analog voltage determined by the contents of the Tone 
Volume Register. 

One Noise bit and four Noise Volume bits from the first section of the 
Music Processor are fed to a set of AND gates. This set of AND gates 
operates the same way as the AND gates for the tones, except that the 
Noise AM Register must contain a 1 for the outputs of the AND gates to 
oscillate. The analog outputs of the four D-A Converters are summed to 
produce the single audio output. 
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CUSTOM CHIP TIMING 


The following diagrams show the relationship of various signals 
in the system during different types of operations. Delays are 
shown to be zero nsec from the clock edge which causes the transition. 
The actual delay is given in "Electrical Specification for Midway 
Custom Circuits". 


MUXD0 - MUXD7 is a 8-bit bidirectional address and data bus for 
the custom chips. By using this technique 16 bits of address and 
8 bits of data can be sent to the custom chips on 8 wires. The 
state of the bus is determined by MC0 and MCI from the data chip 
and RFSH from the Z-80. 


RFSH MCI MC0 

L L L 

L L H 

L H L 

L H H 

H L L 

H L H 

H H L 

H H H 


A0 - A7 to custom chips. 
A0 - A7 to custom chips 
A0 - A7 to custom chips 
A0 - A7 to custom chips 
A0 - A7 to custom chips 
A8 - A15 to custom chips 
D0 - D7 to custom chips 
D0 - D7 from custom chips 
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MEMORY WRITE WITHOUT EXTRA WAIT STATE 
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MEMORY READ WITHOUT EXTRA WAIT STATE 
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I/O READ FROM OTHER THAN PORT I0H-I7H 







VIDEO TIMING 


The frequency of PX is half that of 7M and the 0 is one-fourth 7M. 
There are 455 cycles of 7M per horizontal line and 113 3/4 |> cycles 
per line. Because of the extra 3/4 cycle 0 must be resynchronized 
at the beginning of each line. This is done by stalling 0 for 
3 cycles of 7M. PX is also stalled for the same amount of time. 

The timing relationship is shown below. The diagram also shows 
the relationship of VERT DR to HORIZ DR. The two RAS pulses shown 
are the first two video RAS signals of a line, each line contains 
forty. 
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VIDEO 
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RELATIONSHIP BETWEEN HORIZ DR, HORIZ BLANK, HORIZ SYNC AND COLOR BURST 
EACH HORIZONTAL DIVISION IS EQUAL TO 3F> CYCLES OF 7M 
THE PATTERN REPEATS EVERY 455 CYCLES OF 7M 
SHADED AREA VOLTAGE DETERMINED BY THE DATA IN RAM 
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EACH HORIZONTAL DIVISION REPRESENTS ONE HORIZONTAL SCAN 



ELECTRICAL SPECIFICATION FOR MIDWAY CUSTOM CIRCUITS 


I. GENERAL SYSTEM PARAMETERS 
I . A . Power Supplies 

1. VDD=+5.0V ±5% 

2. VGG=+10.0V ± 5 % 

3. VSS=O.OV 


1/14/77 

1/27/77 

3/25/77 

7/6/77 


N/C 

A 

B 

C 


I . B . Timing Signals 

1. 0 & 0;_Period = 560nsec, High time* 240nsec to 260nsec. 

0 and 0 have zero level crossover +1 volt -0 volts 
t r , tf* less than 20nsec 



(Times are in nsec) 


2. 7M&7M; Period = 140nsec, High time + 50nsec to 70nsec 

7M & 7M have zero level crossover +1 volt -0 volt 

t r , tf + less than 15nsec 



(Times are in nsec) 


Dead time £ 5nsec 
Max C Load = 20pf 


+Note 

1) High time is time clock at £-6V. 

2) Rise time from zero level to one level. 



- 2 - 
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I. B. (Continued) 

*Note: 

1. High time is time between 50% points. 

2. Clock signals are generated by low power Shottky Logic 
(series 74LS). Full level swing on clock signals to be 
achieved through external resistor to VdD- Zero level 
.7V to 0V. 

3. Rise time from zero level to . 9VQD- 
I. C. Z80 Data Bus (MUXD0-MUXD7) 

1. Z80 Data Bus interface requires a three-state output/input 
buffer. The three states are defined below. 

2. Logic 0: .5 V + noise generated by chip, noise for address 

chip is .15V @ -430uA 

3. Logic 1: 2.7 V @ +70 mA 

4. High Impedance: Leakage at either logic 0 or 1 to be 

less than 5yA. 

5. Transient Response: Transition from High Impedance to 

0 or 1 will be complete within 442nsec 
of the 90% point of 0 of the last wait 
state of input cycle or 442nsec of the 
90% point of 0 of the second wait state 
of the interrupt acknowledge cycle. 

The maximum load will be 80pf. This 
includes 14pfd for two custom chips. 

6. Exception: The path through the Data chip connecting 

the RAM bus with the Z80 bus shall introduce 
a maximum of 160ns.ec of delay. 

7. The low address byte wil_l be valid on the Z80 Data Bus 
at least 62nsec before 0. The hjjgh address byte will 

be valid at least 79nsec before 0. The data byte will be 
valid 55nsec before 0. 



1. The RAM Data Bus will require three state logic buffers. 

2. Logic 0: .5V 0 -25yA 

3. Logic 1: 2.7V 0 +25yA 

4. High Impedance: 5yA maximum leakage at either logic 0 or 1. 

5. Transient Response: The outputs shall transition from High 

Impedance to 0 or 1 within 120nsec of 7M. 
The outputs shall transition from 1 or 0 
to high impedance within 20nsec of 7M. 
Maximum load will be 20pf. 

I. E. RAM Data Bus (MD0-MD7) - Commercial Game 

1. The RAM Data Bus will require three state logic buffers. 

2. Logic 0: .5 V 0 -200yA 

3. Logic 1: 2.7V 0 +25yA 

4. High Impedance: 5yA maximum leakage of either logic 0 or 1. 

5. Transient Response: The output shall transition from High 

Impedance to 0 or 1 within 120nsec of 
7M. The output shall transition from 
1 or 0 to High Impedance within 2nsec 
of 7M. Maximum load will be lOpf. 

I. F. Ambient operating temperature 0°C 5 <_ 55°C. 

I. G. Storage temperature >_ -65 0 C, <_ 150°C. 

I. H. Packing 40 pin plastic. 

II. CUSTOM CIRCUIT SPECIFICATION 

This specification defines the terminal characteristics for 
each of the custom circuits. These specifications shall take 
precedence^' n case of conflict. All 0 references refer to 
the 0 and 0 inputs to the address and I/O chip. 
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II. A. Data Chip 


Input f 

>in 

List VO 

VI 

td (Low) 1 

td (High) 1 

Ref 



W) 

W) 

(nsec ) 

(nsec j 


MREQ 


.5 

2.45 

132 

•6 

7M 

RD 


.5 

2.45 

12 

6 

7M 

IORQ 


.5 

2.45 

112 

126 

7M 

7M 


See Section I . B . 




7M 


II 

II 




WRCTL 


.5 

3.1 

82 

82 

7M 

Ml 


.5 

2.45 

12 

82 

7M 

LTCHDO 


.5 

3.1 

120 

120 

7M 

Serial 

0 

.5 

2.45 

30 

30 

7M 

Serial 

1 

.5 

2.45 

30 

30 

7M 


2. Power Supplies 
See Section I. A. 


3. Bus Connections 

MXDO See Z80 Data Bus Spec. Section I.C. 

MXD1 

MXD2 

MXD3 

MXD4 

MXD5 

MXD6 

MXD7 

MDO See RAM Data Bus Spec Section I.D. 

MD1 

MD2 

MD3 

MD4 

MD5 

MD6 

MD7 
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Outputs 

VO 

10 

VI 

11 

CAP 

t P 

Ref. 


Tv) 

(mA) 

Tv) 

(pA) 

(Pf) 

(nsec) 


VIDEO* 

* 




10 

100 

7M 

R-Y* 

* 




10 

600 


B-Y* 

* 




10 

600 


HORIZ DR 

Note 4 

400 

2.7 

20 

20 

20 

7M 

VERT DR 

Note 4 

400 

2.7 

20 

20 

20 

7M 

2.5V 1 2 3 4 5 6 

-- 

-- 

-- 



DC 


0 

Note 4 

400 

2.7 

20 

10 

100 

7M 

PXCLK 

Note 4 

400 

2.7 

20 

10 

100 

7M 

MCO 

Note 4 

400 

2.7 

20 

10 

120 

7M 

MCI 

Note 4 

400 

2.7 

20 

10 

120 

7M 

DATEN 

Note 4 

400 

2.7 

20 

10 

90 

7M 


♦Video, R-Y, 
must switch 
R-Y and B-Y 


B-Y are analog outputs at 140nsec rate. Video, 
from 10% to 90% of blank to white in 140nsec. 
transitions not to exceed . 6psec. 


1 ^d (Low) and ^d (High) is maximum time in nsec except where a 
minim um is shown. _ 

2 For IORQ Ref. to 0 ^d (Low)=l 32nsec ^d (High)=6nsec. 

3 Serial 0 and Serial 1 will operate at 7MHz. 

4 . 5V + noise generated by chip. 

5 Tap on both resistor chains for a capacitor. Will become test 
input with voltage applied > 8V. 

6 The Z80 0 is generated by this signal with a clock driver which 
introduces a delay of <20nsec. 
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II. B. I/O Chip 


Input Pin List 

VO 

vi 

Ref 

t d (Hiqh) 

(Low) 





(nsec) 

(nsec) 

Reset 

.5 

2.45 




MONOS 

Note 

1 




RD 

.5 

2.45 

0 or 

0 166 

172 0 or 0 

IORQ 

.5 

2.45 

0 6 

146 0 

132 0 

0 

See 

Section 

I.B. 



0 

II 

II 

Ik 



SI0 

.5 

3.3 



Note 3 

SI1 

.5 

3.3 



Note 3 

SI2 

.5 

3.3 



Note 3 

SI3 

.5 

3.3 



Note 3 

SI4 

.5 

3.3 



Note 3 

SI5 

.5 

3.3 



Note 3 

SI6 

.5 

3.3 



Note 3 

SI7 

.5 

3.3 



Note 3 

TEST 

.5 

5.0 



DC 


2. Power Supplies 
See Section I. A. 


3. Bus Connections 

MUXDO See Z80 Data Bus Spec Section I.C. 

MUXD1 

MUXD2 

MUXD3 

MUXD4 

MUXD5 

MUXD6 

MUXD7 


Outputs 



VO 


10 

VI 

n 




Tv) 


(uA) 

Tv) 

(mA) 

Audio Note 4 


Fmax 

_ 

20KHz 



Discharge 

Note 

5 

. 5V 


4V 



SO0 

Note 

3 

Note 

7 

200 

4V 

1650 

SOI 

Note 

3 

Note 

7 

200 

4V 

1650 

S02 

Note 

3 

Note 

7 

200 

4V 

1650 

S03 

Note 

3 

Note 

7 

200 

4V 

1650 

S04 

Note 

3 

Note 

7 

200 

4 V 

1650 

S05 

Note 

3 

Note 

7 

200 

4V 

1650 

S06 

Note 

3 

Note 

7 

200 

4V 

1650 

S07 

Note 

3 

Note 

7 

200 

4V 

1650 

POT 0 

Note 

2 



5 

VDD--5 

50 

POT 1 

Note 

2 



5 

VDD-.5 

50 

POT 2 

Note 

2 



5 

VDD--5 

50 

POT 3 

Note 

2 



5 

VDD--5 

50 
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Note 1 MONOS triggers at 2.1 volts +2% + noise voltage 
when the supply is 5.25V. 

Note 2 Open source-Vol tage measured with 0.2ma. 

Note 3 Time from load of address into microcycle register 
to date valid on MUX data bus from SI inputs 
(data path through address decoder, out on SO 
outputs, through closed switch and isolation diode, 
into SI input to MUX Data Bus) shall be 2ysec max. 

Drop of isolation diode will be 0.7V max. SO must 
drive 2kft in the high level. Max C load of SO 
shall be 300 pf. SI input shall have kill device 
enabled by INPUT. 

Note 4 Audio voltage oscillates between 0V and one of the 

following voltages; .33, .67, 1.00, 1.33, 1.67, 2.00, 
2.33, 2.67, 3.00, 3.33, 3.67, 4.00, 4.33, 4.67 and 
5.00. These voltages should be + 6 %. The load shall 
be lOOOpf and lOOkfi. 

Note 5 Discharge is open drain to V 5 3 . Discharges .Olufd 
capacitor to .2 V in 144usec. 

Note 6 For I0REQ Ref. to 0 td (Low)=l 52nsec td (High)=166nsec. 

Note 7 . 5V + noise generated by 1/0 chip. 


Miscellaneous Timing 

Time for M0 Adder - 20 max 
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II. C . Address Chip 


Input Pin List 

VO 

VI 

tpd (Low) 

t pd (Hie 

jh) REF 


Tv) 

(vT 

(nsec) 

(nsec’ 

) 

RFSH 

.5 

2.45 

222 0 

216 

0 

MREQ 

.5 

2.45 

152 0 

1 66 

0 or 0 

RD 

.5 

2.45 

172 0 

or 0 166 

0 or 0 

MI 

.5 

2.45 

176 0 

242 

0 

A12 1 

.5 

2.45 



0 

A1 3 ' 

.5 

2.45 



0 

A14l 

.5 

2.45 



0 

A15 1 

.5 

2.45 



0 

IORQ 

.5 

2.45 

132 0 

146 

V 2 3 4 

LIGHT PEN 

.5 

2.45 

Asyn 



TEST 

.5 

5.0 

DC 



HORIZ. DR. 

.5 

2.45 

Note 3 


0 

VERT. DR. 

.5 

2.45 

Note 4 


0 

0 

See 

Section I.B 




0 

II 

II II 





2. Power Supplies 
See Section I. A. 


3. Bus Connections 


MXDO See Z80 Data Bus Spec Section I.E. 

MXD1 

MXD2 

MXD3 

MXD4 

MXD5 

MXD6 

MXD7 


4. 


Outputs 

VO 

10 

VI 

11 

CAP tpd (Low) 

tpd(Hiqh) 


TV) 

(pA) 

TV) 

(pA) 

(pf) 

(nsec) 

(nsec) 

LATCHDO 

Note 7 

Note 

6 3.1 

Note 

6 10 

280 

140 

WAIT 


400 

2.4 

20 

25 

490 

490 

MA0-MA5 


400 

2.4 

20 

20 

242 

240 

I NT 


400 

2.4 

20 

25 

490 

572 

RAS0-RAS3 


400 

2.4 

20 

20 

382 

382 

WRCTL 

II II 

Note 

6 3.1 

Note 

6 10 

382 

382 


REF 

0 5 6 7 

0 

0 or 0 
0 
0 
0 


1. Time fro m High Impedance to 1 or 0 is 200nsec. (from 0] of Ti) 

2. For IORQ Ref to 0 td (Low)-l 52nsec td (High)=l 66nsec . 0_ 

3. Horizontal Drive time from low to high is 40nsec after 0. 

Time from high to low is lOOnsec before rising edge of 0. 

4. Vertical Drive will transition from low to high 40nsec after falling edge 
of 0. Its width will be 2.1 nsec max. 1.54ysec min. It will go from 
high to low lOOnsec before falling edge of 0. 

5. Reference tpd (High) is 0. 

6. MOS to MOS signal. 

7. . 5V + noise generated by Address Chip ( . 1 5V ) = .65V 
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III. I/O MODE DECODE 
I/O Parts 


HEX 


Out 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
1A 
IB 
1C 
ID 
IE 
IF 

20 
21 
22 

23 

24 


Color 0 Right 

II 1 II 

H 2 n 

H ^ ii 

" 0 Left 

II *| II 

ii 2 n 

" 3 


Consumer/Commerc i a 1 
Horiz Color Bndry 
Vertical Blank 
Color Block TX 
Magic Reg 

Interrupt Feedback 
Interrupt Mode 
Interrupt Line 
Tone Master OSC 
Tone A 
" B 
" C 

Tremello 
Tone C Volume 
Tone A,B Volume 
Noise Volume 
Sound Block TX 


Input 


Intercept Feedback 


Vertical Addr Feedback 
Horizontal Addr Feedback 
SW Bank 0 
1 
2 

3 

4 

5 

6 
7 


POT 0 
" 1 
" 2 
" 3 


2F 




Software and Hardware for the Bally Arcade - A Technical Descript 


A Dave Nutting Associates Design 


Bally Arcade 


8K ROM Source Listing 



Name 

Pages 

ROM Memory 

1) 

Home Video Game Equates 

2 

- 15 


2) 

System Routines 

16 

- 94 

$0000 

3) 

Scribbling 

1 

- 17 

$0E19 

4) 

Calculator 

1 

- 20 

$1020 

5) 

Checkmate 

1 

- 30 

$1328 

6) 

Gun Fight 

1 

- 46 

$17DE 
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30 i *************************** 

31 ; * HOME VIDEO GAME EQUATES * 

32 i ***********************■»•■«•#* 


34 ; ASSEMBLY CONTROL. 

35 ; 


> 000 1 

36 

XPNDON 

EQU 

1 

; ** SET TO 1 WHEN HARDWARE EXP 

>000 1 

37 

38 

39 

NWHDWR 

EQU 

1 

; ** SET TO 1 WHEN NEW HARDWARE 


i 

; GENERAL 

GOOD I ES 


>4000 

40 

NORMEM 

EQU 

4 00 OH 


>2000 

41 

F I RSTC 

EQU 

2000H 

, FIRST ADDRESS IN CASSETTE 

>0000 

42 

SCREEN 

EQU 

0 


>0028 

43 

BYTEPL 

EQU 

40 

; BYTES PER LINE 

>00 AO 

44 

BIT SPL 

EQU 

1 60 

; BITS PER LINE 


45 

; STUFF 

IN S 

YSTEM DOPE 

VECTOR 

>0200 

46 

STIMER 

EQU 

20 OH 

j SECONDS AND GAME TIME, MUSIC 

>0203 

47 

CT I MER 

EQU 

203H 

; CUSTOM TIMERS 

>0206 

48 

F NT SYS 

EQU 

206 H 

; SYSTEM FONT DESCRIPTOR 

>020D 

49 

FNTSML 

EQU 

20 DH 

; SMALL FONT DESCRIPTOR 

>02 1 4 

50 

ALLEYS 

EQU 

214H 

; KEYMASK OF ALL KEYS 

>02 1 8 

51 

MENUST 

EQU 

218H 

; HEAD OF ONBOARD MENU 

>02 IE 

52 

MX SCR 

EQU 

21 EH 

; ADDRESS OF MAX SCORE" 

U A A o 

53 

NOPLAY 

EQU 

228H 

; ADDRESS OF "# OF PLAYERS" 

>0235 

54 

NOGAME 

EQU 

235H 

; ADDRESS OF "# OF GAMES" 


55 

; BIT 

S IN 

PROCESSOR FLAG BYTE 

>0007 

56 

PSWSGN 

EQU 

7 

; SIGN BIT 

>0006 

57 

PSWZRG 

EQU 

/_ 

o 

; ZERO BIT 

>0002 

58 

PSWPV 

EQU 

•7 

; PARITY OVERFLOW 

>0000 

59 

PSWCY 

EQU 

0 

, CARRY 


60 

i BIT 

3 IN 

GAME STATUS 

BYTE 

>0000 

61 

GSBTIM 

EQU 

0 


>000 1 

62 

GSBSCR 

EQU 

1 


>0007 

63 

GSBEND 

EQU 

7 



64 

; STANDARD 

VECTOR DIS 

PLACEMENTS AND BITS 

>0000 

65 

VBMR 

EQU 

0 

; MAGIC REGISTER 

>000 1 

66 

VBSTAT 

EQU 

1 

; STATUS 

>0002 

■67 

VET I MB 

EQU 

a 

; TIME BASE 

>0003 

68 

VBDXL 

EQU 


; DELTA X LO 

>0004 

69 

VBDXH 

EQU 

4 

, DELTA X HI 

>0005 

70 

VEXL 

EQU 

nr 

; X COORD LO 

>0006 

71 

VBXH 

EQU 

6 

; X COORD HI 

>0007 

72 

VBXCHK 

EQU 

7 

; X CHECK FLAGS 

>0008 

73 

VBDYL 

EQU 

8 

> DELTA Y LO 

>0009 

74 

VBDYH 

EQU 

09H 

; DELTA Y HI 

>000 A 

75 

VBYL 

EQU 

OAH 

; Y COORD LO 

>00 OB 

76 

VBYH 

EQU 

OBH 

; Y COORD HI 

>oooc 

77 

VBYCHK 

EQU 

OCH 

; Y CHECK FLAGS 

>000D 

78 

VBOAL 

EQU 

ODH 

; OLD ADDRESS L. 0. 

>00 OE 

79 

VBOAH 

EQU 

OEH 

i OLD ADDRESS H. 0. 


80 

; DI 

SF’LAC 

EMENTS FROM 

START OF COORDINATE AREA 

>0000 

81 

VBDCL 

EQU 

0 

; LO DELTA 

>000 1 

C'2 

VBDCH 

EQU 

1 

; HI DELTA 

>0002 

C- 

VBCL 

EQU 

A 

, LO COORD 

>0003 

84 

VBCH 

EQU 

c* 

; HI COORD 

>0004 

85 

VBCCHK 

EQU 

4 

; CHECK BITS 
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PAGE 


>0006 

>0005 

>0004 

>0003 

>0002 

>0003 


A DDR OBJECT 

STMT 

LABEL 

□PCD 

U PE RAND C 


86 

; BIT 

3 IN E 

TATUS BYTE 

0007 

87 

VBSACT 

EQU 

7 ; 

0006 

88 

VBBLNK 

EQU 

6 


89 

; BIT 

3 IN C 

HECK BIT MASK 

0000 

90 

VBCL.MT 

EQU 

0 ; 

000 1 

9 1 

VBCREV 

EQU 

1 ; 

0003 

92 

V ECLAT 

EQU 

3 ; 


93 

; FONT 

TABLF 

DISPLACEMENTS 

0000 

94 

FTBASE 

EQU 

0 ; 

OOO 1 

95 

FTFSX 

EQU 

1 ; 

0002 

96 

FTFSY 

EQIJ 

2 i 

0003 

97 

FTBYTE 

EQU 

3 ; 

0004 

Q O 

FTYSIZ 

EQU 

4 ; 

0005 

99 

FTPTL 

EQU 

5 

0006 

1 00 

FTF'TH 

EQU 

6 ; 


1 0 1 

> B I T 

3 FOR 

MAGIC REGISTER 


102 MRFLOP EQU 6 

103 MR X OR EQU 5 

104 MR OR EQU 4 

105 MRXF'ND EQU 3 

106 MR ROT EQU 2 

107 MRSHFT EQU OSH 

108 ; BITS OF CONTROL HANDLE 


VECTOR ACTIVE STATUS 
BLANK STATUS 

DO LIMIT CHECKING 

REVERSE DELTA ON LIMIT ATTAIN 

COORDINATE IS AT LIMIT 

FOR NEW CHARACTER DISPLAY ROU 

BASE CHARACTER 

X FRAME SIZE 

Y FRAME SIZE 

X SIZE OF CHAR IN BYTES 

Y SIZE IN BITS 
PATTERN TABLE ADDRESS LO 
PATTERN TABLE ADDRESS HI 

WRITE OPTION BYTE 
WRITE WITH FLOP 
WRITE WITH EXCLUSIVE OR 
WRITE WITH OR 
WRITE WITH EXPAND 
WRITE WITH ROTATE- 
MASK OF SHIFT AMOUNT 
INPUT PORT 


>0004 

109 

f 

HTRI G 

EQU 

4 

; TRIGGER 

>0003 

1 1 0 

c 

HRIGH 

EQU 


; JOYSTICK RIGHT 

>0002 

1 1 1 

c 

HLEFT 

EQU 

7 

; JOYSTICK LEFT 

>000 1 

112 

c 

HDOWN 

EQU 

l 

i DOWN 

>0000 

1 1 3 

c 

HUP 

EQU 

o 

; UP 


114 



i CONTEXT 

BLOCK 

REG I STER D I SPLA CEMENTS 

>0000 

115 

c 

BIYL 

EQU 

0 

; IY 

>000 :i. 

116 

c 

BIYH 

EQU 

1 


>0002 

1 17 

c 

B I XL 

EQIJ 

7 

; IX 

>0003 

118 

c 

BIXH 

EQU 

2; 


>0004 

119 

c 

BE 

EQIJ 

4 

LlI 

Ui 

>0005 

1 20 

c 

BD 

EQU 

5 


>0006 

121 

c 

E 

c 

EQU 

6 

; BC 

>0007 

122 

c 

BB 

EQU 

7 


>0003 

123 

c 

BFLAG 

EQIJ 

8 

; AF 

> (.)(„)(_» 9 

124 

c 

BA 

EQU 

9 


>000 A 

1 25 

c 

BL 

EQU 

OAH 

i HL 

>000B 

126 

c 

BH 

EQU 

OBH 



127 



SENTRY RETURN C 

ODE EQUATES: 

>0000 

1 28 

£ 

NUL 

EQU 

0 

; NOTHING HAPPENED 

>000 1 

129 

3 

C 

TO 

EQIJ 

1 

; COUNTER-TIMER 1 THRU 

>0002 

1 30 

£ 

|“ 

T 1 

EQU 

7 


>0003 

131 

£ 

j - 

T2 

EQU 



>0004 

132 

£ 

|" 

T3 

EQU 

4 


>0005 

133 

c 

r 

T 4 

EQU 

5 


>0006 

1 34 

£ 

I - 

T5 

EQU 

6 


>0007 

135 

£ 

[- 

T 6 

EQU 

7 


>0008 

1 36 

£ 

j - 

T7 

EQU 

o 


>0009 

137 

c 

FO 

EQU 

9 

; FLAG BIT 0 

>000 A 

1 38 

E 

FI 

EQIJ 

OAH 


>00 OB 

139 

E 

F2 

EQU 

OBH 


>oooc 

140 

E 

F 

■“» 

EQIJ 

OCH 


>000 Ei 

141 

c 

F4 

EQU 

ODH 


>000E 

142 

c 

F5 

EQU 

OEH 
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•00 OF 

143 

SF 6 

EQU 

OFH 



00 1 0 

144 

SF7 

EQIJ 

10H 



00 1 1 

145 

SSEC 

EQIJ 

11H 

SECONDS TIMER 

HAS COUNTED DOW 

00 1 3 

146 

SKYD 

EQU 

13H 

KEY IS DOWN 


00 1 2 

147 

SKY U 

EQU 

12H 

YES IS LIP 


00 1C 

148 

SPO 

EQU 

1CH 

POT 0 


00 1 D 

149 

SP 1 

EQU 

1DH 

POT 1 


00 1 E 

150 

SP2 

EQU 

1 EH 

POT 2 


00 IF 

151 

SF'3 

EQU 

1FH 

POT 3 


00 1 4 

152 

STO 

EQU 

14H 

TRIGGER 0 


00 1 5 

153 

SJO 

EQU 

15H 

JOYSTICK 0 


00 1 6 

154 

ST 1 

EQU 

16H 

SIMILARLY FOR 

1-3 

0017 

155 

SJ1 

EQIJ 

17H 



0018 

1 56 

ST2 

EQU 

1SH 



00 1 9 

157 

SJ2 

EQU 

19H 



001 A 

158 

ST 3 

EQU 

1 AH 



00 1 B 

159 

SJ3 

EQIJ 

1BH 
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161 




162 


HOME 

VIDEO GAME 

PORT EQUATES * 



163 

i tf**************##-*#**#####-***#*# 



164 

, OUTPUT 

PORTS FOR 

VIRTUAL COLOR 

_>oooo 


1 65 

COLOR 

EQL 

0 

i COLOR 0 RIGHT 

>000 1 


1 66 

COL 1 R 

EQL 

1 

, COLOR 1 RIGHT 

>0002 


1 67 

C0L2R 

EQL 

9 

; COLOR 2 RIGHT 

>0003 


1 68 

C0L3R 

EQL 


; COLOR 3 RIGHT 

>0004 


1 69 

CGLOL 

EQL 

4 

i COLOR 0 LEFT 

>0005 


170 

COL 1 L 

EQL 

5 

; COLOR 1 LEFT 

>0OO/-. 


171 

C0L2L 

EQL 

6 

; COLOR 2 LEFT 

>0007 


172 

C0L.3L 

EQL 

7 

; COLOR 3 LEFT 

>000B 


173 

COLBX 

EQL 

OBH 

; COLOR BLOCK OUTPUT PORT 

>0009 


174 

HORCB 

EQL 


i HORIZONTAL COLOR BOUNDARY 

>000 A 


175 

VERBL 

EQL 

OAH 

; VERTICAL BLANKING LINE 



176 

; OUTPUT 

PORTS FOR 

MUSIC AND SOUNDS 

>00 :i o 


177 

TONMO 

EQL 

10H 

; TONE MASTER OSCILLATOR 

>001 1 


1 78 

TONEA 

EQL 

1 1H 

; TONE A OSC. 

>00 1 2 


179 

TONEB 

EQL 

12H 

, TONE B OSC 

>00 1 3 


1 80 

T ON EC 

EQL 

13H 

; TONE C OSC. 

>00 1 4 


181 

V I BRA 

EQL 

14H 

i VIBRATO 

>00 1 6 


1 82 

VQLAB 

EQL 

16H 

; TONES A, B VOLUME 

>00 1 5 


1 83 

VOLC 

EQL 

15H 

i TONE C VOLUME 

>00 1 7 


134 

VGLN 

EQL 

17H 

, NOISE VOLUME 

>00 1 8 


1 R5 

SNDBX 

EQL 

18H 

; SOUND BLOCK OUTPUT PORT 



1 86 

i INTERRL 

FT AND CONTROL OUTPUT PORTS 

>OOOD 


187 

INFER 

EQL 

ODH 

> INTERRUPT FEEDBACK 

>00 0E 


1 88 

I NMOD 

EQL 

OEH 

; INTERRUPT MODE 

>000F 


1 89 

INI IN 

EQL 

OFH 

; INTERRUPT LINE 

>0008 


1 90 

CON CM 

EQL 

8 

; CONSUMER COMMERCIAL 

>000C 


191 

MAGIC 

EQL 

OCH 

; MAGIC REGISTER 

>00 1 9 


192 

XF'AND 

EQL 

19H 

; EXPANDER PIXEL DEFINITION 



1 93 

; INTERRL 

F'T AND INTERCEPT INPUT PORTS 

>{)()( )M 


194 

I NT ST 

EQL 

y 

, I NTERCEPT STATUS 

>000E 


1 95 

VERAF 

EQL 

OEH 

; VERTICAL ADDRESS FEEDBACK 

>000F 


1 96 

HORAF 

EQL 

OFH 

; HORIZONTAL ADDRESS FEEDBAf 



197 

, HAND CC 

NTROLS INPUT PORTS 

>00 1 0 


198 

swo 

EQL 

10H 

; PLAYER 0 HAND CONTROL 

>001 1 


1 99 

SW1 

EQL 

1 1H 

; PLAYER 1 HAND CONTROL 

>00 1 2 


200 

SW2 

EQL 

12H 

; PLAYER 2 HAND CONTROL 

>00 1 3 


201 

SW3 

EQL 

13H 

i PLAYER 3 HAND CONTROL 

>00 1 C 


202 

F'OTO 

EQL 

1CH 

; PLAYER 0 POT 

>00 1 D 


203 

POT 1 

EQL 

1DH 

; PLAYER 1 POT 

>00 1 E 


204 

POT 2 

EQL 

1EH 

; PLAYER 2 POT 

>00 1 F 


205 

POT 3 

EQL 

1FH 

; PLAYER 3 POT 



206 

; KEYBOARD INPUT PORTS 

>00 1 4 


207 

KEYO 

EQL 

14H 

; KEYBOARD COLUMN 0 

>00 1 5 


208 

KEY 1 

EQL 

15H 

; KEYBOARD COLUMN 1 

>00 1 6 


209 

KEY2 

EQL 

16H 

; KEYBOARD COLUMN 2 

>00 1 7 


210 

KEYS 

EQL 

17H 

; KEYBOARD COLUMN 3 
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212 i ************************•«•***•«••«•*#•«■**■«•**■«■ 

213 ; * HOME VIDEO GAME SYSTEM CALL INDEXES * 

214 ; **************************•*•«•■«•*■«■■«■*****•«••«• 


215 ; USER PROGRAM INTERFACE 

•*7 1 it. I ID T OTD ETi-il I i~\ 


>0000 

216 

LIPISTR 

EQLI 

0 


>0000 

217 

INTF'C 

EQU 

UF'ISTR 

; INTERPRET WITH CONTEXT CREATE 

>0002 

218 

XINTC 

EQU 

INTPC+2 

i EXIT INTERPRETER WITH CONTEXT 

>0004 

219 

RCALL 

EQU 

XINTC+2 

; CALL ASM LANGUAGE SUBROUTINE 

>0006 

220 

MCALL. 

EQU 

RCALL+2 

; CALL INTERPRETER SUBROUTINE 

joooy 

221 

MRET 

EQU 

MCALL+2 

; RETURN FROM INTERPRETER SIJBRO 

>000 A 

222 

MJUMP 

EQU 

MRET+2 

; MACRO JUMP 

>000C 

223 

SUCK 

EQU 

MJUMP+2 

; SUCK INLINE ARGS INTO CB 


224 

; SCHEDULER ROUTINES 


>000C 

225 

SCHEDR 

EQU 

SUCK 


>000E 

226 

ACT I NT 

EQU 

SCHEDR+2 

; SET SUB TIMER 

>00 1 0 

227 

DECCTS 

EQU 

ACTINT+2 

; DEC CT'S UNDER MASK 


•7 

; MUS 

IC AND SOUNDS 


>00 1 2 

229 

MUZAK 

EQU 

DECCTS+2 


>00 1 2 

230 

BMUSIC 

EQU 

MUZAK 

; BEGIN PLAYING MUSIC 

>0014 

231 

EMUS I C 

EQU 

BMUSIC+2 

i STOP PLAYING MUSIC 


7 ; v 

; SCREEN HANDLER ROUTINES 

>00 1 6 

233 

SCRSTR 

EQU 

EMUSIC+2 


>0016 

234 

SETOUT 

EQU 

SCRSTR 

; SET SCREEN SIZE 

>00 1 8 

235 

COL.SET 

EQU 

SETOUT+2 

; SET COLORS 

>001 A 

236 

FILL 

EQU 

COLSET+2 

j FILL MEMORY WITH CONSTANT DAT 

>00 1 c 

237 

RECTAN 

EQU 

FILL+2 

; PAINT RECTANGLE 

>00 IE 

~j O 

VWRITR 

EQU 

RECTAN+2 

; WRITE RELATIVE FROM VECTOR 

>002 O 

239 

WRITR 

EQU 

VWRITR+2 

; WRITE RELATIVE 

>0022 

240 

WRITP 

EQU 

WRITR+2 

; WRITE WITH PATTERN SIZE LOOKU 

>0024 

241 

WRIT 

EQU 

WRITP+2 

; WRITE WITH SIZES PROVIDED 

>0026 

242 

WRITA 

EQU 

WRIT+2 

; WRITE ABSOLUTE 

> ooz'd 

243 

VBLANK 

EQU 

WRITA+2 

i BLANK AREA FROM VECTOR 

>002 A 

244 

BLANK 

EQU 

VBLANK+2 

; BLANK AREA 

>002L- 

245 

SAVE 

EQU 

BLANK+2 

; SAVE AREA 

>00 2E 

246 

RESTOR 

EQU 

SAVE+2 

; RESTORE AREA 

>0030 

247 

SCROLL 

EQU 

RESTOR+2 

; SCROLL AREA OF SCREEN 


248 

i 




>0032 

249 

CHRDIS 

EQU 

SCROLL+2 

; NEW DISPLAY CHARACTER 

>0034 

250 

STRDIS 

EQU 

CHRDIS+2 

; NEW DISPLAY STRING 

>0036 

251 

■-/ er ■-/ 

DISNUM 

EQU 

STRDIS+2 

; DISPLAY NUMBER 

>0038 

253 

RELABS 

EQU 

DISNUM+2 

; RELATIVE TO ABSOLUTE CONVERSI 

>00 3 A 

254 

RELAB 1 

EQU 

RELABS+2 

; NONMAGIC RELABS 

>00 3C 

255 

VECTC 

EQU 

RELAB 1+2 

i VECTOR SINGLE COORDINATE 

>003E 

256 

VECT 

EQU 

VECTC+2 

; VECTOR COORDINATE PAIR 


257 

; HUMAN INTERFACE ROUTINES 

>0040 

258 

HLIMANR 

EQU 

VECT+2 


>0040 

259 

KCTASC 

EQU 

HUMANR 

; KEY CODE TO ASCII 

>0042 

260 

SENTRY 

EQU 

KCTASC+2 

; SENSE TRANSITION 

>0044 

261 

DOIT 

EQU 

SENTRY+2 

; BRANCH TO TRANSITION HANDLER 

>0046 

262 

DOITB 

EQU 

DO IT +2 

; USE B INSTEAD OF A 

>0048 

263 

F'lZBRK 

EQU 

DOITB+2 

; TAKE A BREAK 

>00 4 A 

264 

MENU 

EQU 

PIZBRK+2 

; DISPLAY A MENU 

>004C 

265 

GETPAR 

EQU 

MENU+2 

; GET GAME PARAMETER FROM USER 

>004 E 

266 

GETNUM 

EQU 

GETPAR+2 

, GET NUMBER FROM USER 

>0050 

267 

PAWS 

EQU 

GETNUM+2 

; PAUSE 
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= 0052 

268 

DISTIM 

EQU 

F'AWS+2 

; DISPLAY TIME 

■0054 

269 

INCSCR 

EQIJ 

DISTIM+2 

; INC SCORE 


270 

; MATH 

ROUTINES 


•0056 

271 

MATH 

EQU 

I NCSCR+2 


•0056 

272 

INDEXN 

EQU 

MATH 

; INDEX NIBBLE 

0058 

273 

STOREN 

EQU 

INDEXN+2 


005 A 

274 

INDEXW 

EQU 

STOREN+2 

; INDEX WORD 

•005C 

275 

INDEXB 

EQU 

INDEXW+2 

i INDEX BYTE 

•005E 

276 

MOVE 

EQU 

INDEXB+2 

; BLOCK TRANSFER 

•0060 

277 

SHIFTU 

EQU 

MOVE+2 

; SHIFT UP A DIGIT 

•0062 

278 

BCDADD 

EQU 

SHIFTU+2 

.. BCD ADD 

•0064 

279 

BCD SUE: 

EQU 

BCDADD+2 

; BCD SUBTRACT 

•0066 

280 

BCDMIJL. 

EQU 

BCDSUB+2 

; BCD MULTIPLY 

■006 8 

281 

BCDDIV 

EQU 

BCDMIJL +2 

; BCD DIVIDE 

■006 A 

•~r ;Zj •’/ 

BCDCHS 

EQU 

BCDDIV+2 

; BCD CHANGE SIGN 

■006C 

283 

E'CDNEG 

EQU 

BCDCHS +2 

; BCD NEGATE 

•006E 

284 

DADD 

EQU 

BCDNEG+2 

; DECIMAL ADD 

•0070 

90r; 

DSMG 

EQU 

DADD+2 

; CONVERT TO SIGN MAGNITUDE 

■0072 

286 

DABS 

EQU 

DSMG+2 

; DECIMAL ABSOLUTE VALUE 

0074 

287 

NEGT 

EQU 

DABS+2 

; NEGATE 

0076 

~j Q C; 

RANGED 

EQU 

NEGT +2 

; RANGED RANDOM NUMBER 

0078 

289 

QIJ I T 

EQU 

RANGED+2 

; QUIT CASSETTE EXECUTION 

007 A 

290 

SETB 

EQU 

QUIT+2 

; SET BYTE 

00 7 C 

291 

SETW 

EQIJ 

SETB+2 

; SET WORD 

007 E 

292 

MSKTD 

EQU 

SETW+2 

; MASK TO DELTAS 
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294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 
303 

309 

310 

31 1 

312 

313 

314 

315 

316 

317 

319 

320 

321 


324 


326 


327 


329 


330 


331 



346 

347 

348 

349 


; * ***** **** 

; * MACROS * 

, ********** 

i MACROS TO DEFINE PATTERNS 

DEF2 MACR ttAA, #AB 

DEFB #AA 
DEFB #AB 
ENDM 

DEF3 MACR #BA. ttBB, #BC 

DEFB #BA 
DEFB #BB 
DEFB #BC 
ENDM 

DEF4 MACR #CA, #CB, ttCC, #CD 

DEFB #CA 
DEFB #CB 
DEFB #CC 
DEFB #CD 
ENDM 

DEF5 MACR #DA, ttDB, #DC, #DD, #DE 

DEFB #DA 
DEFB #DB 
DEFB #DC 
DEFB #DD 
DEFB ttDE 
ENDM 

DEF6 MACR ttEA, #EB, #EC, #ED, #EE, ttEF 

DEFB ttEA 
DEFB #EB 
DEFB #EC 
DEFB #ED 
DEFB #EE 
DEFB #EF 
ENDM 

DEF8 MACR #GA, 4GB, #GC, #GD, #GE, #GF , #GG, #GH 
DEFB #GA 
DEFB #GB 
DEFB #GC 
DEFB #GD 
DEFB #GE 
DEFB #GF 
DEFB #GG 
DEFB #GH 
ENDM 

; MACROS TO COMPUTE CONSTANT SCREEN ADDRES 

XYRELL MACR #R, #X, #Y ; RELATIVE LOAD 

LD #R, . RES. (#Y). SHL. 8+(#X) 

ENDM 

, MACRO TO GENERATE SYSTEM CALL 

SYSTEM MACR #NUMBA 
RST 56 
DEFB ttNUMBA 
IF ttNUMBA EQ. I NTPC 

INTP@ DEFL 1 
END IF 
ENDM 
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ooco 


350 

351 



359 

360 

361 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 


384 

385 

386 

387 

388 

389 

390 

391 

392 
39 3 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 


; MACRO TO GENERATE SYSTEM CALL WITH SUCK OPTION ON 
SYSSUK MACR #IJMBA 
RST 56 
DEFB ttUMBA+ 1 
IF #IJMBA. EQ. I NTPC 
INTP@ DEFL 1 
END IF 
ENDM 

; MACROS TO GENERATE MACRO INSTRUCTION CALLS 

; FILL SCREEN WITH CONSTANT DATA 
FILL? MACR ttSTART, ttNBYTES, ttDATA 
DEFB FILL+1 
DEFW ttSTART 
DEFW ttNBYTES 
DEFB ttDATA 
ENDM 

i EXIT INTERPRETER WITH CONTEXT RESTORE 
EXIT MACR 

DEFB XINTC 
INTP© DEFL 0 

ENDM 

; INTERPRET WITH INLINE SUCK 
DO MACR ttCID 

DEFB #CID+1 
ENDM 

, INTERPRET WITHOUT INLINE SUCK 
DONT MACR ttCID 

DEFB ttCID 
ENDM 

; MACRO CALL FROM DO I T TABLE 
EQU OCOH 
MACR ttA, #B, ttE 
DEFB ttA+80H 
DEFW #B 
I F 0#E 

DEFB OttE 
END IF 
ENDM 

CALL FROM DOIT TABLE 
MACR #A, ttB, ttE 
DEFB ttA+40H 
DEFW ttE: 

I F OttE 

DEFB OttE 
END IF 
ENDM 

JUMP FROM DOIT TABLE 
MACR #A, ttB, #E 
DEFB ttA 
DEFW ttE: 

I F OttE 
DEFB OttE 
END IF 
ENDM 

, DISPLAY A STRING 
TEXT MACR ttA, ttB, #C, #D 
DEFB STRDIS+1 


END 

MC 


; REAL 


RC 


; REAL 
JMP 
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407 


DEFB #B 



408 


DEFB #C 



409 


DEFB #D 



410 


DEFW #A 



411 


ENDM 



4 1 3 


414 

; MU 8 

IC MAi 

::ROS 

415 

; NOTE DURATION, FREQ(S) 

416 

NOTE 1 

MACR 

#DUR, #N1 

417 


DEFB 

#BUR?<7FH 

418 


DEFB 

#N1 

419 


ENDM 


420 

N0TE2 

MACR 

#DUR, #N1 , #N2 

421 


DEFB 

#DUR?/.7FH 

422 


DEFB 

#N 1 

423 


DEFB 

#N2 

424 


ENDM 


425 

NOTES 

MACR 

#DUR, #N1 , #N2, #N3 

426 


DEFB 

#DUR 

427 


DEFB 

#N1 

428 


DEFB 

#N2 

429 


DEFB 

#N3 

430 


ENDM 


431 

N0TE4 

MACR 

#DUR> #N1 , #N2, #N3, #N4 

432 


DEFB 

#DUR 

433 


DEFB 

#N1 

434 


DEFB 

#N2 

435 


DEFB 

#N3 

436 


DEFB 

#N4 

437 


ENDM 


438 

NOTES 

MACR 

#DUR, #N1 , #N2, #N3, #N4, #N5 

439 


DEFB 

#DUR 

440 


DEFB 

#N1 

441 


DEFB 

#N2 

442 


DEFB 

#N3 

443 


DEFB 

#N4 

444 


DEFB 

#N5 

445 


ENDM 


446 

MASTER 

MACR 

#OFFSET 

447 


DEFB 

80H 

448 


DEFB 

#OFFSET 

449 


ENDM 


450 

; STUFF OUTPUT PORT#, DATA OR 

451 

; OUTPUT SNDBX, DATA 10, Dll,..., DATA 17 

452 

OUTPUT 

MACR 

#PORT, #D0, #D1, #D2, #D3, #D4, #D5, #D6, #D7 

453 


IF 

. NOT ( #F'0RT=18H ) 

454 


DEFB 

80H+ ( #P0RTSt7FH ) 

455 


DEFB 

#D0 

456 


END IF 

457 


IF 

#P0RT=18H 

458 


DEFB 

88H 

459 


DEF8 

#D7, #D6, #D5, #D4, #D3, #D2, #D1, #D0 
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460 END IF 

461 ENDM 

462 ; SET VOICE BYTE 

463 ; THE FORMAT OF THE VOICE BYTE IS 

464 ; *I*A*I*B*I*C*V*N* 

465 ; WHERE N = LOAD NOISE WITH DATA AT PC AND INC PC 

466 i V = LOAD VIBRATO AND INC PC 

467 ; I = INC PC 

468 ; A, B, C = LOAD TONE A, B, C WITH DATA AT PC 

469 VOICES MACR #MASK 

470 DEFB 90H 

471 DEFB #MASK 

472 ENDM 

473 ; PUSH NUMBER ONTO STACK 

474 PUSHN MACR #NUMB 

475 DEFB OAOH+ ( ( #NUMB- 1 ) . AND. OFH ) 

476 ENDM 

477 ; SET VOLUMES 

478 VOLUME MACR #BA, #MC 

479 DEFB OBOH 

480 DEFB #BA 

481 DEFB #MC 

482 ENDM 

483 ; CALL RELATIVE 0-15 BEYOND SELF+1 

484 CREL MACR #BY 

485 DEFB ODOH+ < #BY. AND. OFH ) 

486 ENDM 

487 ; DEC STACK TOP AND JNZ 

488 DSJNZ MACR #ADD 

489 DEFB OCOH 

490 DEFW #ADD 

491 ENDM 

492 ; FLIP LEGATO STACATO 

493 LEGSTA MACR 

494 DEFB OEOH 

495 ENDM 

496 REST MACR #TIME 

497 DEFB 0E1H 

498 DEFB #T I ME 

499 ENDM 

500 QUIET MACR 

501 DEFB OF OH 

502 ENDM 

503 ; ***************** 

504 ; * MUSIC EQUATES * 

505 ; ***************** 

506 ; NOTE VALUES 


>00FD 

507 

GO 

EQU 

253 

>00 EE 

508 

GSO 

EQU 

238 

>00E 1 

509 

AO 

EQU 

225 

>00D4 

510 

ASO 

EQU 

212 

>00C8 

511 

BO 

EQU 

200 

>OOBD 

512 

Cl 

EQU 

189 

>00B2 

513 

CS1 

EQU 

178 

>00 A 8 

514 

D1 

EQU 

168 

>009F 

515 

DS1 

EQU 

159 

>0096 

516 

El 

EQU 

150 
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>008D 

517 

FI 

EQU 

141 

>0085 

518 

FS1 

EQIJ 

1 33 

>00 7 E 

519 

G1 

EQU 

126 

>0077 

520 

GS1 

EQU 

119 

>0070 

521 

A1 

EQU 

1 12 

>006 A 

522 

AS 1 

EQU 

106 

>0064 

523 

B1 

EQU 

100 

>005E 

524 

G2 

EQU 

94 

>0059 

525 

CS2 

EQU 

09 

>0054 

526 

D2 

EQU 

84 

>004 F 

527 

DS2 

EQU 

79 

>004 A 

528 

E2 

EQU 

74 

>0046 

529 

F2 

EQU 

70 

>0042 

530 

FS2 

EQU 

66 

>003E 

531 

G2 

EQU 

62 

>00 SB 

532 

GS2 

EQU 

59 

>0037 

533 

A2 

EQU 

55 

>0034 

534 

AS2 

EQU 

52 

>003 1 

cr -i cr 

B2 

EQU 

49 

>002E 

536 

C3 

EQU 

46 

>00 2C 

537 

CS3 

EQU 

44 

>0029 

Cj J~| 

D3 

EQU 

41 

>0027 

539 

DS3 

EQU 

39 

>0025 

540 

E3 

EQU 

37 

>0022 

541 

F3 

EQU 

34 

>0020 

542 

FS3 

EQU 

32 

>00 IF 

543 

Iji !*! 

EQU 

31 

>00 1 D 

544 

GS3 

EQIJ 

29 

>00 IE 

545 

A3 

EQU 

27 

>00 1 A 

546 

ASS 

EQU 

26 

>00 1 8 

547 

B3 

EQU 

24 

>0017 

548 

C4 

EQU 

23 

>00 1 5 

549 

CS4 

EQU 

21 

>0014 

550 

D4 

EQU 

20 

>00 1 3 

551 

DS4 

EQU 

19 

>00 1 2 

552 

E4 

EQU 

18 

>00 1 1 

553 

F4 

EQU 

17 

>00 1 0 

554 

FS4 

EQU 

16 

>00 OF 

555 

G4 

EQU 

15 

>000E 

556 

GS4 

EQU 

14 

>OOOD 

557 

A4 

EQU 

13 

>000 B 

558 

C5 

EQU 

1 1 

>000 A 

559 

CS5 

EQU 

10 

>0009 

560 

DS5 

EQU 

9 

>0008 

561 

F5 

EQU 

8 

>0007 

562 

G5 

EQU 

7 

>0006 

563 

A5 

EQU 

6 

>0005 

564 

C6 

EQU 

5 

>0004 

565 

DS6 

EQU 

4 

>0003 

566 

G6 

EQU 


>0002 

567 

C7 

EQU 


>000 1 

568 

G7 

EQU 

1 

>0000 

569 

08 

EQU 

0 


570 

i 

MASTER 0 

SCILATOR OFFSET 

>OOFE 

571 

OEO 

EQU 

254 

>00 F 1 

572 

OCO 

EQU 

241 

>00D6 

573 

0D1 

EQU 

214 
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>00 BP 

574 

0E1 

EQIJ 

191 


>00B4 

575 

OF 1 

EQU 

1 80 


>00 AO 

576 

06 1 

EQU 

160 


>008F 

577 

0A1 

EQIJ 

1 43 


>0047 

578 

0A2 

EQU 

71 


>0023 

579 

0A3 

EQU 

-~tC7 
. “« •_* 


>00 1 1 

580 

0A4 

EQU 

17 


>0008 

581 

0A5 

EQU 

8 
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583 




584 


i & 

SYSTEM 

RAM MEMORY CELLS * 


585 



OFFF 

586 

WASTE 

EQU 


OFFFH 


OFFF 

587 

cr •“> o 

WASTER 

EQIJ 


WASTE 



589 


, THE FOLLOWING ORG SHOULD BE SET TO THE VALUE OF 


590 


, THE TAG 


"SYSRAM", THIS 

WILL CAUSE SYSTEM RAM 


591 

cr i”i •"/ 


; TO 

RESIDE AT THE HIGHES 

T POSSIBLE ADDRESS 


._i y xL 

593 


> 

uRu 


4FC8H 


4FC8 

594 



DEF 

!= 

6 , 

GOT SOME LEFT STILL 

4FCE 

595 

BEGRAM 

EQU 


* 



596 


, IJS 

ED BY 


MUS I C PROCESSOR 


4FCE 

597 

MUZ PC: 

DEF 

!r 

2 ; 

MUSIC PROGRAM COUNTER 

4FD0 

598 

MUZSP: 

DEF 

:E 

~t • 

MUSIC STACK POINTER 

4FD2 

599 

PVOLAB 

: DEF 


1 

PRESET VOLUME FOR TONES A AND 

4FD3 

600 

F'VOLMC 

: DEF 


1 - 

PRESET VOLUME FOR MASTER OSC 

4FD4 

601 

VOICES 

DEF 

E 

1 ; 

MUSIC VOICES 


602 


, COUNTER 


TIMERS (USED BY 

DECCTSi ACT I NT > CTIMER) 

4FD5 

603 


TO 

DEF 

- 

1 ; 

COUNTER TIMER 0 

4FD6 

604 

r 

T 1 : 

DEF 

z 

1 ; 

1 

4FD7 

605 


T2: 

DEF 

z 

1 ; 

•y 

4FD8 

606 

c 

T3 : 

DEF 

z 

1 ; 

3 

4FD9 

607 


T 4 

DEFS 

1 ; 

4 

4 FDA 

608 

c 

T5 . 

DEF 

z 

1 ; 

5 

4FDB 

609 

r 

T6 : 

DEF 

r 

1 ; 

6 

4FDC 

6 1 0 

l~ 

T7 : 

DEF 

z 

1 ; 

7 


61 1 


; US 

ED BY 


SENTRY TO TRACK 

CONTROLS 

4FDD 

612 

c 

NT: 

DEF 

£ 

1 ; 

COUNTER UP DATE&N UMBER TRACKING 

4FDE 

6 1 3 

s 

EMI4S 

DEF 

Z 

1 ; 

FLAG BITS 

4FDF 

614 

OF'OT 0 : 

DEF 

z 

1 ; 

POT 0 TRACKING 

4FE0 

615 

OF'OT 1 ■ 

DEF 

£ 

1 ; 

POT 1 TRACKING 

4FE 1 

6 1 6 

OF'OT 2. 

DEF 

S 

1 ; 

POT 2 TRACKING 

4FE2 

617 

OF'OT 3: 

DEF 


1 

POT 3 TRACKING 

4FE3 

618 

KEYS EX 

DEF 

£ 

1 ; 

KEYBOARD TRACKING BYTE 

4FE4 

6 1 9 

c 

SWO. 

DEF 

S 

1 ; 

SWITCH 0 TRACKING 

4FE5 

620 

0 

SW1 : 

DEF 

E 

1 ; 

SWITCH 1 TRACKING 

4FE6 

621 

c 

SW2 : 

DEF 

z 

1 ; 

SWITCH 2 TRACKING 

4FE7 

622 

c 

SW3 : 

DEF 

£ 

1 , 

SWITCH 3 TRACKING 

4FE8 

623 

I - 

OLLST 

DEF 

z 

2 ; 

COLOR LIST ADDRESS FOR P. B. A 


624 


; USED BY 


ST I MER 


4FEA 

625 

DLIRAT: 

DEF 

£ 

1 i 

NOTE DURATION 

4FEB 

626 

TMR60: 

DEF 

£ 

1 ; 

SIXTIETHS OF SEC 

4FEC 

627 

T I MOOT 

DEF 

Z 

1 ; 

BLAKOUT TIMER 

4FED 

628 

G 

TSECS 

DEF 

z 

1 ; 

GAME TIME SECONDS 

4FEE 

629 

G 

TMINS 

DEF 

£ 

1 

GAME TIME MINUTES 


630 


, us 

ED BY 


MENU 


4FEF 

63 1 

RANSHT 

DEF 

Z 

4 ; 

RANDOM NUMBER SHIFT REGISTER 

4FF3 

632 

NUMFLY 

DEF 

£ 

1 ; 

NUMBER OF PLAYERS 

4FF4 

633 

ENDSCR 

: DEF 

c 

3 ; 

SCORE TO --PLAY TO" 

4FF7 

634 

MR LOCK 

: DEF 

£ 

1 i 

MAGIC REGISTER LOCK OUT FLAG 

4FF8 

635 

G 

AMSTB 

: DEF 

£ 

1 ; 

GAME STATUS BYTE 

4FF9 

636 

F'R I OR : 

DEF 

E 

1 ; 

MUSIC PROTECT FLAG 

4FFA 

637 

£ 

ENFLG 

DEF 

£ 

1 ; 

SENTRY CONTROL SEIZURE FLAG 

4FFB 

638 

UMARGT 

: DEF 

£ 
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642 







643 


LIST 

S, X, T, M 




644 


NLIS 

T I 




645 





646 

; * 

HVGSYS 





647 



•0008 


649 

PFUG 

EQU 

OSH 

POT FUDGE FACTOR 

■ 1 7DE 


650 

GFSTRT 

EQU 

17DEH 

GUN FIGHT START ADDRESS 

■ 1 328 


651 

CMSTRT 

EQU 

1 328H 

CHECKMATE START ADDRESS 

■1020 


652 

CALCST 

EQU 

1 020H 

CALCULATOR START ADDRESS 

■0E 1 9 


653 

SCBST : 

EQU 

0E19H 

SCRIBBLING START ADDRESS 



655 





656 

; * 

POWER 

JP RESTART * 




657 





658 


ORG 

0 


0000 

00 

659 


NOP 


WAIT FOR THINGS TO SETTLE 

000 1 

F3 

660 


DI 



0002 

AF 

661 


XOR 

A 


0003 

D308 

662 


OUT 

( CONCM ) , A 

*** SET CONSUMER MODE *** 

0005 

C3610C 

663 


JP 

F'WRUP 




665 


ORG 

O 




666 

; TRANSFER 

CONTROL TO RE: 

START HANDLER 

0008 

C 30 7 20 

667 


JP 

2007H 

VECTOR OUT 

OOOB 

1C 

669 

NUMBAS 

DEFB 

1CH 


OOOC 

3C 

670 


DEFB 

3CH 


000 D 

1C 

671 


DEFB 

1CH 


OOOE 

20 

672 


DEFB 

20H 




674 


ORG 

16 


00 1 0 

C30A20 

675 


JP 

200AH 

RESTART 2 

00 1 3 

06 

676 

MENUCL 

DEFB 

06 H 

MENU COLORS 

00 1 4 

FB 

677 


DEFB 

OFBH 


00 1 5 

07 

678 


DEFB 

07H 


0016 

52 

679 


DEFB 

52H 




681 


ORG 

24 


00 1 8 

C30D20 

682 


JP 

200DH 

RESTART 3 
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684 

; NAME: 

PAUSE 




685 

; PURPOSE : 

HALT # OF 

INTERRUPTS 



686 

; I NF'IJT : 

B = # OF 

INTERRUPTS 

00 IB 

FB 

687 

MF'AUSE : E I 



00 1C 

76 

688 

HALT 



00 1 D 

10FD 

689 

DJNZ 

-1 


00 IF 

C9 

690 

RET 
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692 

0020 C31020 

693 


695 

696 

0023 73 697 

0024 23 698 

0025 72 699 

0026 C9 700 

702 

0 0 2 Ei C 3 1 3 2 0 703 

002B 210000 705 

00 2 E C9 706 

70S 

0 0 3 0 C 3 1 6 2 0 7 0 9 



OR'G 



JP 

201 OH 

; NAME: 

SET 

WORD 

; (HL) 

=DE 


MSETW : 

LD 

(HL) , E 


INC 

HL 


LD 

RET 

( HL. ) , D 


ORG 40 
JP 20 1 3H 


C0NC2 

LD 

HL, 0 


RET 



IJRO 

48 


JP 

2016H 


RESTART 4 


RESTART 5 


ZERO OUT HL 


RESTART 6 


0033 00 


711 CKSUMi DEFB 0 


CHECKSUM 


0034 SB01 
0036 0 1 


713 I TAB: 

714 


DEFW MACTIN 
DEFB 1 


INTERRUPT TRANSFER 
** SYSTEM REVISION LEVEL 


716 

717 
7 1 S 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 


USER PROGRAM INTERFACE 

TRANSFER OF CONTROL FROM USER TO SYSTEM 
ROUTINE # FOLLOWS INLINE AFTER RST INSTR 
IF L. 0. BIT SET, LOAD ARGUMENTS INLINE F 
NONE 

IS BYTES TOTAL, 16 BYTES ON EXIT 
REGISTERS AF, BC, DE, HL, I X , AND OLD IY SAV 

, REGISTERS AF, BC, DE, HL, I X, AND PREVIOUS IY ARE PUSHED 
, THE NUMBER FOLLOWING THE RST 56 INSTRUCTION IS USED TO 
; INDEX A JUMP VECTOR GIVING THE STARTING ADDRESS OF THE 
> SYSTEM ROUTINE TO CALL. IF OPTIONED, INLINE ARGUMENTS 
; ARE COPIED INTO THE CONTEXT AREA. FOR ARGUMENT ORDER IN 
, SEE INTERPRETER DOCUMENTATION AND AF'PROP. TABLES 
, A DUMMY RETURN IS INSERTED WHICH, WHEN RETURNED TO BY 
, SYSTEM ROUTINE, WILL. RESTORE THE REGISTER CONTENTS AND 
; RETURN TO THE USER PROGRAM 


ORG 56 

; NAME : 

, PURPOSE 
; INPUT: 

i 

i OUTPUT : 
i STACK USE ■ 

; SIDE EFFECTS: 
, EXPLANATION: 
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734 

} 





735 

; *** THE 

UP I HAS BEEN EXTENDED TO SUPPORT USER SUP PL I 



736 

, ROUTINE 

3. IF THE CALL 

INDEX PROVIDED IS NEGATIVE 



737 

> THEN THE USERS D I SPATE 

H TABLE POINTER (IJSERTB) IS US 



738 

, NOTE THAT THE SIGN BIT 

ISN'T ZAPPED BEFORE BEING 



739 

- USED AS 

AN INDEX, THIS 

MEANS THAT THE USERS DISPATCH 



740 

; TABLE P 

J INTER SHOULD POINT 128 BYTES BEFORE THE FIRS 

0038 

E3 

741 

EX 

< SP ) , HL ; 

RETURN ADDRESS TO HL 

0039 

F5 

742 

PUSH 

AF ; 

CREATE CONTEXT 

00 3 A 

C5 

743 

PUSH 

BC 


00 3 E: 

D5 

744 

PUSH 

DE 


00 3C 

DDE 5 

745 

PUSH 

I X 


003E 

FDE5 

746 

PUSH 

IY 


0040 

FD 2 1 0000 

747 

LD 

IY, 0 ; 

POINT IY AT CONTEXT 

0044 

FD39 

748 

ADD 

IY, SP 


0046 

7E 

749 

LD 

A, (HL) 

LOAD OPCODE 

0047 

7 ■ 

750 

I NC 

HL 


0048 

1 17A02 

751 

LD 

DE, RETN ; 

DE = RETURN POINT 

0041? 

IF 

752 

RRA 


SUCK WANTED? 

0040 

3836 

753 

JR 

C, MINTO— $ 

JUMP IF YES 

00 4 E 

E5 

754 

INTPE PUSH 

HL ; 

SAVE PC 

00 4 F 

D5 

755 

PUSH 

DE i 

SAVE DUMMY RETURN 

0050 

2 1 CD 00 

756 

LD 

HL. , SYS DPT 


0053 

07 

757 

RL.CA 



0054 

5F 

758 

LD 

E, A 


0055 

1 600 

759 

LD 

D, 0 


0057 

17 

760 

RLA 

; 

USER TABLE WANTED? 

0058 

3003 

761 

JR 

NC, F'USHl 


005 A 

2AFD4F 

762 

LD 

HL, ( IJSERTB ) ; 

YES - LOAD IT 

005D 

19 

763 

F'USHl ADD 

HL, DE 


005E 

5E 

764 

LD 

E, (HL) 


005F 

~t O 

765 

INC 

HL 


0060 

56 

766 

LD 

D, (HL) 


006 1 

D5 

767 

PUSH 

DE 


0062 

FD660B 

768 

LD 

H, ( IY+CBH) 


0065 

FD6E0A 

769 

LD 

L, ( IY+CBL) 


0068 

FD5603 

770 

RELD L.D 

D, ( IY+CBIXH) 


006 B 

FD5E02 

771 

LD 

E, ( I Y+CBI XL ) 


00 6 E 

D5 

772 

PUSH 

DE 


00 6 F 

DDE 1 

773 

POP 

IX 


0071 

FD7E09 

774 

LD 

A, ( IY+CBA) 


0074 

FD5605 

775 

DELOAD: LD 

D, ( IY+CBD) 


0077 

FD5E04 

776 

LD 

E, ( IY+CBE) 


00 7 A 

C 9 

777 

RET 


CALL VIA RETURN 
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*M0DC0MP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
ADDR OBJECT STMT LABEL OPCD OPERAND COMMENT 

779 ; NAME: MACRO INTERPRETER 

780 ; PURPOSE: INTERPRETING SEQUENCES OF SYSTEM CALLS 

781 ; INPUT: ADDRESS OF STRING TO INTERPRET PASSED ON 

782 ; STACK USE: NO INCREASE IN DEPTH 

783 ; EXPLANATION: IF OPTIONED (BIT 0 OF CALL INDEX SET) THE 

784 ; ARGUMENT TABLE < MRARGT ) IS INDEXED GIVING A MASK WHICH 

785 ; SPECIFIES HOW TO TRANSFER INLINE ARGUMENTS INTO THE CO 

786 ; BLOCK. THIS MASK IS FORMATED AS FOLLOWS: 

787 ; 

788 ; 

789 i ********************************* 

790 ; *7*6*5*4*3*2* 1 *0* 

791 ; ********************************* 

792 i *H*L*A* IX*B*C*D*E* 

793 ; ********************************* 

794 ; ARGUMENTS MUST FOLLOW THE CALL INDEX IN THE FOLLOWING 

795 ; (OMITING UNUSED ARGUMENTS, OF COURSE) 

796 ; < INDEX), I XL, IXH, E, D, C, B, A, L, H 

797 ; 

798 ; THE SIMULATED PC IS SAVED AND A DUMMY RETURN IS 

799 ; INSERTED ON THE STACK. THE UP I DISPATCHING ROUTINE IS 

800 ; THEN ENTERED AT ' INTPE", WHICH EFFECTS A CONTROL TRANS 

801 ; TO THE CALLED ROUTINE. WHEN THE CALLED ROUTINE RETURN 

802 ; IT WILL COME BACK HERE TO INTERPRET THE NEXT MACRO INS 

803 ; NOTE THAT THIS ROUTINE IS REENTRANT, THEREFORE THE CAL 

804 ; ROUTINE MAY RECUR BACK THRU HERE, IF IT FEELS LIKE IT. 

805 , ** THE UP I HAS BEEN EXTENDED TO SUPPORT USER PROVIDED 

806 ; SYSTEM ROUTINES. IF A NEGATIVE CALL INDEX IS ENCOUNTER 

807 ; BY THE INTERPRETER, AND 'SUCK INLINE-' IS OPTIONED, THE 

808 ; USER MACRO ROUTINE ARGUMENT TABLE IS INDEXED FOR A 

809 ; PARAMETER MASK. THE ADDRESS OF THIS TABLE IS ASSUMED 

810 ; TO EE IN (UMARGT), (UMARGT+1 ). THIS POINTER SHOULD 

811 ; POINT 64 BYTES BEFORE THE FIRST REAL ENTRY. 




812 

,- I. E. 

LD 


HL, USERMT-64 ; WHERE USERMT POINTS 

AT 

007 B 

D 1 

813 

814 

i 

MI NTPC: 

LD 

POP 

DE 

< UMARGT ) , HL 

i DISCARD 

DUMMY RETURN FROM 

UP I 

007C 
00 7 C 

El 

815 

816 

RENTER: 

POP 

HL 

; POP OFF 

PC 





818 

; NAME: 


MCALL 






819 

; PURPOSE : 

CALL INTERPRETER SUBROUTINE 




820 

; INPUT 


HL = ROUTINE ADDRESS 




821 

; NOTES 


ROUTINE 

MAY 

BE CALLED FROM MACHINE 

LANGUA 



822 

i 


ANOTHER 

INTERPRETED SEQUENCE 




823 

i 


STACK DEPTH 

INCREASED BY 4 BY CALL 


007D 

7E 

824 

MMCALL: 

LD 

A, (HL) 

i 

GET OPCODE 


007E 

23 

825 


INC 

HL 




007F 

CB3F 

826 


SRL 

A 




0081 

1 1 7C00 

827 


LD 

DE, RENTER 

i 

LOAD INTERPRETER DUMMY 

RETURN 

0084 

D5 

828 

MINTO: 

PUSH 

DE 

i 

SAVE DUMMY RETURN 


0085 

4F 

829 


LD 

C, A 

i 

INDEX TO C 


0086 

30 1 2 

830 


JR 

NC, MINT2-* 

i 

JUMP IF NO LOAD WANTED 


0088 

EB 

S3 1 


EX 

DE, HL 




0089 

0600 

832 


LD 

B, 0 






•ftMLiDf 

■OMR Z-SO 

CROSS 

ASSEMBLER* 

HOME VIDEO GAME SYSTEM PAGE 21 

A DDR 

OBJECT 

STMT 

LABEL OP CD 

OPERAND 

COMMENT 

00 SB 

214B01 

833 

LD 


HL, MRARGT 

; LOAD SYSTEM ARG TABLE 

008E 

CB77 

834 

BIT 


6, A 

, USE USER TABLE? 

0090 

2803 

O tr 

JR 


Z, MINT1-* 

; JUMP IF NO 

0092 

2AFB4F 

836 

LD 


HL, < IJMARGT ) 


0095 

09 

i“! / 

M I NT 1 : ADD 


HL, BC 

; INDEX TABLE 

0096 

46 

838 

LD 


B, (HL) 


0097 

CD AS 00 

839 

CALL. 

MSUCK 1 

; CALL SUCK ROUTINE 

009 A 

D 1 

840 

MINT2: PDF 


DE 

; DUMMY RETURN TO DE, HL = PC 

009B 

79 

84 1 

LD 


A, C 

; GET CALL INDEX BACK 

00 9 C 

FD4607 

842 

LD 


B, ( IY+CBB) 

; RESTORE CLOBBERED REGISTERS 

00 9F 

FD4E06 

843 

LD 


C, ( IY+CBC) 


00 A 2 

i 8AA 

844 

JR 


I NT PE- $ 

, JOIN NORMAL l.JF'I DISPATCH SEQU 



846 

; NAME 


SUCK INLINE ARGUMENTS 



847 

; PURPOSE : 


TRANSFER 

OF INLINE ARCS INTO CONTEXT BL.0 



848 

; INPUT: 


B = ARG 

LOAD MASK (SEE INTERPRETER COMME 



849 

; OUTPUT: 


HL. = UPDATED PC 



850 

; EXPLANATION: THIS ROUTINE IMPLEMENTS A MACRO LOAD INST 



851 

; IT IS US 

ED BY THE INTERPRETER AS WELL... A ONE BIT IN T 




; INLINE LOAD MASK MEANS 

TRANSFER: THE NEXT INLINE BYTE I 



853 

; A ZERO BIT MEANS ADVANCE CONTEXT BLOCK POINTER- 



854 

; TWO ENTRY 

POINTS ARE DEFINED, ONE FOR THE SUCK MACRO I 



OCTET 

; THE OTHER 

FOR THE INTERPRETER TO USE 



856 

; SUCK MACRC 

ENTRY: 


00 A 4 

El 

857 

MSUCK : F'OF 


HL 

; RETURN ADDRESS TO HL. 

00A5 

D1 

OtTO 

PDF 


DE 

; POP OFF PC 



859 

; *** BYTE 

SAVING TRICK 

*** REPLACE WITH LD HL, REENTRY 

00 A 6 

v >; 

860 

INC 


HL 

; ADVANCE TO REENTRY (MINTO) 

00A7 

E5 

861 

PUS 

H 

HL. 




862 

; FALL INTO . . . 


00 AS 

CB60 

863 

MSUCK 1: BIT 

4, B 

, IX LOAD WANTED? 

00 A A 

2 80 A 

864 

JR 


Z, MSUCK2-* 

; MSUCK 2 IF NOT 

00 AC 

1A 

865 

LD 


A, (DE) 


00 AD 

13 

866 

INC 


DE 


00 AE 

FD7702 

867 

LD 


( IY+CBIXL), A 


OOB 1 

1 A 

968 

LD 


A, (DE) 


00 B 2 

13 

869 

INC 


DE 


OOB 3 

FD7703 

870 

LD 


( IY+CEIXH) , A 


00B6 

FDE5 

871 

MSUCK 2: PUS 

H 

IY 

; LET HL. = IY 

OOB 8 

El 

872 

F'OF 


HL 


00B9 

~t 

873 

INC 


HL. 

; + 4 

OOBA 

Z..-> 

874 

INC 


HL 


OOBB 


875 

INC 


HL 


OOBC 

•70 

876 

INC 


HL 


OOBD 

CBAO 

877 

RES 


4, E 

; KILL IX BIT 



878 

; SUCK I N 

LOOP 


00 BF 

CB38 

879 

MSUCK 3 : SRL 

B 


00 C 1 

3003 

880 

JR 


NC, MSUCK5-* 

; MSUCK 5 IF NOT THIS TIME 

00C3 

1A 

88 1 

LD 


A, (DE) 

; GET INLINE BYTE 

00 C 4 

13 


INC 


DE 


00 C 5 

77 

o o o 

LD 


< HL. ) , A 

, STUFF INTO CB 

00 C 6 

~{ 

884 

MSUCK 5 : I NC 


HL 

, BUMP CB POINTER 



o o p; 

; ** THIS 

CODE ASSUMES 

THAT STATUS OF •'SRL-' IS PRESERVE 

00 C 7 

20F 6 

886 

JR 


NZ, MSUCK3-* 

; JUMP BACK IF MORE TO DO 

DOC 9 

EB 

887 

EX 


DE, HL 

; HL = PC 

000 A 

C9 

o o o 

RET 


, THEN QUIT 
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*MODCOMP Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
A DDR OBJECT STMT LABEL OPCD OPERAND COMMENT 


890 ; tt**#*****#**#********###***## 

891 ; * LIP I ROUTINE ADDRESS TABLE * 

892 ; *************-h-h-********##**#* 


OOCB 

7 BOO 

893 

SYSDF'T : DEFW 

MI NTPC 


OOCD 

7902 

894 

DEFW 

MXINTC 


OOCF 

3206 

895 

DEFW 

MRCALL 


OOD 1 

7D00 

896 

DEFW 

MMCALL 


00 D 3 

7 SOB 

897 

DEFW 

MMRET 


OOD 5 

C40A 

898 

DEFW 

MM JUMP 


OOD 7 

A 4 00 

899 

DEFW 

MSUCK 


OOD 9 

8B01 

900 

DEFW 

MACTIN 


OODB 

7E04 

901 

DEFW 

TIMEY 


OODD 

0805 

902 

DEFW 

MUZ SET 


OODF 

FC05 

903 

DEFW 

MUZSTP 


OOE 1 

CFOS 

904 

DEFW 

MSETIJP 


0OE3 

DBO 1 

905 

DEFW 

M COL OR 


OOE 5 

EEOA 

906 

DEFW 

MFILL 


OOE 7 

B206 

907 

DEFW 

MPA I NT 


00E9 

FE06 

908 

DEFW 

MVWRIT 


OOEB 

OB 07 

909 

DEFW 

MWRITR 


OOED 

1 507 

9 1 0 

DEFW 

MWRITP 


00 EF 

1907 

91 1 

DEFW 

MWRIT 


OOF 1 

1 CO 7 

912 

DEFW 

MWRITA 


OOFS 

7D07 

913 

DEFW 

MVBLAN 


OOFS 

9E07 

914 

DEFW 

MBLANK 


OOF 7 

B903 

9 1 5 

DEFW 

MSAVE 


OOF 9 

A DO 7 

916 

DEFW 

MREST 


OOFB 

6 AO 2 

917 

DEFW 

MSCROL 


00 FD 

El 07 

918 

DEFW 

DISPCH 


OOFF 

C407 

919 

DEFW 

STRNEW 


0 1 0 1 

EBOB 

920 

DEFW 

BCD ISP 


0103 

F60A 

921 

DEFW 

MRELAB 


0 1 05 

FEOA 

922 

DEFW 

MRELA1 

RELAB 1 

0 1 07 

5606 

923 

DEFW 

MVECTC 


0109 

3306 

924 

DEFW 

MVECT 


01 OB 

C90A 

925 

DEFW 

MKCTAS 


010D 

AC 01 

926 

DEFW 

MENTRY 

SENTRY 

01 OF 

0C06 

927 

DEFW 

MDOIT 

DOIT 

0111 

OB 06 

928 

DEFW 

MDOITB 


0113 

BA01 

929 

DEFW 

MF'IZBK 

PIZBRK 

0115 

97 OC 

930 

DEFW 

MMENIJ 


0117 

FBOC 

931 

DEFW 

MGETF' 


0119 

3 1 OD 

932 

DEFW 

MGETN 


01 IB 

1 BOO 

933 

DEFW 

MF'AUSE 

PAUSE 

01 ID 

CCOB 

934 

DEFW 

MDISTI 

DISPLAY TIME 

01 IF 

1 50C 

935 

DEFW 

MINCSC 

INC SCORE 

0121 

7 6 OB 

936 

DEFW 

INXNIB 

INDEXN 

0 1 23 

900B 

937 

DEFW 

F'UTNIB 

STOREN 

0125 

ACOB 

938 

DEFW 

M I NDW 

INDEXW 

0127 

BDOB 

939 

DEFW 

MINDB 

INDEXB 

0129 

4 BOB 

940 

DEFW 

MMOVE 

MOVE 

012B 

AAOD 

941 

DEFW 

MSHFTU 


01 2D 

2103 

942 

DEFW 

BCD AD 


012F 

IF 03 

943 

DEFW 

BCD SB 


0131 

DE02 

944 

DEFW 

BCDML 


0133 

8402 

945 

DEFW 

BCDDV 
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A DDR 

OBJECT 

STMT LABEL 

QF'CD 

OPERAND 

COMMENT 

01 

- 

r~i 

640 


946 

DEFW 

BCDCS 


01 


7 

410 


947 

DEFW 

BCD NO 


01 



6E0 


948 

DEFW 

Si El ADD 


01 

“ 

B 

290 

“■ 

949 

DEFW 

SDSMG 


01 

~ 

D 

560 

3 

950 

DEFW 

SDABS 


0 1 

j: 

F 

4C0 


951 

DEFW 

SNEGT 


0 1 4 1 

7F0 

3 

952 

DEFW 

M RANGE 


014 


4 1 0 

c 

953 

DEFW 

MQUIT 


014 

cr 

6C0 

3 

954 

DEFW 

MSETB 


0147 

2300 

955 

DEFW 

MSETW 


0 1 4 

9 

400 


956 

DEFW 

MMTD 



958 ; MACRO ROUTINES ARGUMENT MASK TABLE 

959 i FORMAT : 

960 , ********************************* 

961 ; * 7 * 6 * 5 * 4 * 3 * 2 * 1 * 0 * 

962 ; ********************************* 

9 6* 8 .* * H * L * A * I X * B * L- * D * E * 

964 ; ********************************* 

965 i ARGUMENTS MUST FOLLOW THE CALL INDEX IN THE FOLLOWING 

966 ; (DM I TING UNUSED ARGUMENTS, OF COURSE) 

967 , ( INDEX) , I XL, IXH, E, D, C, B, A, L, H 


014B 

00 

968 MRARGT : 

DEFB 

0 

; I NTPC 

014C 

00 

969 

DEFB 

0 

; XINTC 

0 1 4 Ei 

CO 

970 

DEFB 

1 1 OOOOOOB 

i RCALL 

0 1 4E 

CO 

971 

DEFB 

1 1 OOOOOOB 

; MCALL 

014F 

00 

972 

DEFB 

0 

i MRET 

0 1 50 

CO 

973 

DEFB 

1 1 OOOOOOB 

; MJUMP 

0151 

08 

974 

DEFB 

0000 1 00 OB 

; SUCK 

0152 

00 

975 

DEFB 

0 

; ACT I NT 

0153 

04 

976 

DEFB 

00000 1 00 Ei 

; DECCTS 

0 1 54 

FO 

977 

DEFB 

1 1 1 1 0000 B 

; EMUS I C 

0 155 

00 

978 

DEFB 

0 

; EMUS I C 

0156 

2A 

979 

DEFB 

00 1 0 1 0 1 OB 

; SET OUT 

0 1 57 

CO 

980 

DEFB 

1 1 OOOOOOB 

; COL SET 

0158 

2F 

98 1 

DEFB 

00101 1 1 IB 

; FILL 

0 1 59 

2F 

982 

DEFB 

001011 1 IB 

; RECTAN 

0 1 5A 

DO 

983 

DEFB 

1101 OOOOB 

; VWRITR 

0 1 5B 

E3 

984 

DEFB 

111 000 1 1 B 

; WRITR 

015C 

E3 

985 

DEFB 

1 110001 IB 

; WRITP 

0 1 5 Ei 

EF 

986 

DEFB 

1 1 101 1 1 IB 

; WRIT 

015E 

EF 

987 

DEFB 

1 1 101 1 1 IB 

; WRITA 

0 1 5F 

13 

988 

DEFB 

000 1 00 UB 

; VBLANK 

0 1 60 

CE 

989 

DEFB 

1100101 IE: 

; BLANK 

0161 

CF 

990 

DEFB 

11001 1 1 IB 

; SAVE 

0 1 62 


99 1 

DEFB 

1 1 0000 1 1 E: 

; RESTORE 

0 1 63 

CF 

992 

DEFB 

11001 11 IB 

; SCROLL 

0 1 64 

27 

993 

DEFB 

00 1 00 1 1 1 E: 

; NEW D I SC HR 

0 1 65 

C7 

994 

DEFB 

1 1 000 1 1 1 B 

, NEW DISSTR 

0 1 66 

CF 

995 

DEFB 

1 10011 1 IB 

> DISNUM 

0167 

20 

996 

DEFB 

00 1 0000 OB 

; RELABS 

0 1 68 

20 

997 

DEFB 

00 1 OOOOOB 

; RELAB1 

0169 

D4 

998 

DEFB 

1 1 0 1 0 1 00 B 

, VECTC 
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*MODCOMP Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT LABEL 

GPCD 

OPERAND 

COMMENT 

016A 

DO 

999 

DEFB 

1 1010000B 

i 

VECT 

016B 

00 

1000 

DEFB 

0 

i 

KCTASC 

016C 

03 

1001 

DEFB 

0000001 IB 

i 

SENTRY 

016D 

CO 

1002 

DEFB 

1 1 OOOOOOB 

i 

DOIT 

016E 

CO 

1 003 

DEFB 

1 1 OOOOOOB 

i 

DOITB 

016F 

00 

1004 

DEFB 

0 

i 

F'lZBRK 

0170 

C3 

1005 

DEFB 

1100001 IB 

i 

MENU 

0171 

EC 

1006 

DEFB 

111011 OOB 

i 

GET PARAMETER 

0172 

CF 

1 007 

DEFB 

11001 11 IB 

i 

GET NUMBER 

0173 

08 

1008 

DEFB 

00001000B 

i 

PAUSE 

0174 

07 

1009 

DEFB 

0000011 IB 

i 

DISTIM 

0175 

CO 

1 0 1 0 

DEFB 

1 1 OOOOOOB 

i 

INCSCR 

0 1 76 

CO 

101 1 

DEFB 

1 1 OOOOOOB 

i 

INDEXN 

0177 

CO 

1012 

DEFB 

1 1 OOOOOOB 

* 

STOREN 

0178 

CO 

1013 

DEFB 

1 1 OOOOOOB 

i 

INDEX W 

0179 

CO 

1014 

DEFB 

1 1 OOOOOOB 

i 

INDEXB 

0 1 7 A 

CF 

1015 

DEFB 

11001 11 IB 

i 

MOVE 

017B 

C8 

1016 

DEFB 

1 1001000B 

i 

SHIFTU 

017C 

CE 

1017 

DEFB 

1100101 IB 

i 

BCDADD 

017D 

CB 

1 0 1 8 

DEFB 

1 100101 IB 

i 

BCD SUB 

017E 

CE 

1019 

DEFB 

1 100101 IB 

# 

BCDMUL 

017F 

CE 

1020 

DEFB 

1100101 IB 

i 

BCDDIV 

0 1 80 

C8 

1021 

DEFB 

1 1001000B 

i 

BCDCHS 

0181 

OB 

1 022 

DEFB 

0000101 IB 

i 

BCDNEG 

0 1 82 

CE 

1023 

DEFB 

1 1 00 1 0 1 1 B 

i 

DADD 

0183 

OB 

1 024 

DEFB 

0000101 IB 

i 

DSMG 

0184 

OB 

1025 

DEFB 

0000101 IB 

i 

DABS 

0185 

C8 

1026 

DEFB 

U001000B 

i 

NEGT 

0 1 86 

20 

1 027 

DEFB 

00100000B 

i 

RANGED 

0187 

00 

1028 

DEFB 

OOOOOOOOB 

i 

QUIT 

0 1 88 

EO 

1 029 

DEFB 

111 OOOOOB 

i 

SET BYTE 

0 1 89 

C3 

1030 

DEFB 

1100001 IB 

i 

SET WORD 

018A 

C7 

1031 

DEFB 

1100011 IB 

i 

MASK TO DELTAS 




1 033 

i DOES 

4 60TH SEC COUNTERS 

018B 

F3 

1034 

MACTIN: 

DI 

i 

018C 

F5 

1035 


PUSH 

AF 

01 3D 

C5 

1036 


PUSH 

BC 

018E 

D5 

1 037 


PUSH 

DE 

018F 

E5 

1 038 


PUSH 

HL 

0 1 90 

ED5E 

1039 


IM 

2 

0192 

3E00 

1 040 


LD 

A, I TAB. SHR. 8 

0194 

ED47 

1041 


LD 

I, A 

0196 

SECS 

1042 


LD 

A, 200 

0 1 98 

D30F 

1043 


OUT 

( INLIN), A 

0 1 9 A 

3E34 

1044 


LD 

A. ITAB&OFFH 

0 1 9C 

D30D 

1045 


OUT 

< INFBK), A 

019E 

CD A 004 

1046 


CALL 

TIMEZ ; 

0 1 A 1 

OEOF 

1047 


LD 

C, OFH ; 

01 A3 

CD7E04 

1 048 


CALL 

TIMEY ; 

01A6 

El 

1049 


POP 

HL 

01A7 

D1 

1050 


POP 

DE 

01A8 

Cl 

1051 


POP 

BC 


IN CTO-3 

MAKE SURE INTERRUPT IS DISABL 


UPDATE TIMOUT, MUSIC AND SECON 
USE CTO-3 
DEC CTO-3 



*MUDC 

0MP Z-SO 

CROSS 

ASSEMBLER* HOME VIDEO GAME SYSTEM 

PAGE 25 

A DDR 

OBJECT 

STMT 

LABEL OP CD OPERAND COMMENT 


0 1 A 9 

FI 

1052 

POP AF 


0 1 AA 

FB 

1 053 

El 


01 AE 

C9 

1 054 

RET 





1 056 

; ROUTINE: S 

ENTRY 



1 057 

; PURPO 

BE: TO WAIT FOR CHANGE OF PROGRAM STATUS 



1058 

; IN EITHER 

THE PORTS OR THE TIMER-COUNTERS. 



1 059 

; IN ADDITION IT CHECKS T I MOOT FOR LONG PERIODS OF IN- 



1 060 

i ACTIVITY. 




1061 

i #* IS 

VECTOR OUT FLAG SET?? 

0 1 AC 

3AFA4F 

1 062 

MENTRY: 

LD 

A, < SENFL.G ) 

0 1 AF 

FEAA 

1 063 


CP 

OAAH 

01 Bi 

CA 1 920 

1 064 


JP 

Z, 2019H , YES - JUMP OUT 

01B4 

3AEC4F 

1 065 


LD 

A, (TIMOUT) ; CHECK IF TIME TO BLAKOUT 

01B7 

B7 

1 066 


OR 

A 

01B8 

202B 

1 067 


JR 

NZ, TTEST— $ 

01 BA 

AF 

1 068 

MPIZBK: 

X OR 

A ; TIME TO SHUT DOWN 

01 BE 

F3 

1 069 


DI 


0 1 BC 

D315 

1070 


OUT 

( VOLC ) , A ; TURN OFF SOUNDS 

01 BE 

D316 

1 07 1 


OUT 

< VOLAB ) , A 

0 1 CO 

0 1 OE'OS 

1 072 


LD 

BC, COLEX +8*256 

01C3 

ED 7 9 

1073 


OUT 

( C ) , A ; PAINT IT BLACK 

01C5 

1 OFC 

1074 


DJNZ 

—2 

01C7 

1 11402 

1 075 

F'BLP: 

LD 

DE, AKEYS 

01CA 

CDF40C 

1076 


CALL 

FINDL3 ; CALL STORE DE INTO CONTEXT RO 

0 1 CD 

CDE501 

1 077 


CALL 

TTEST ; WAIT FOR SOMETHING TO HAPPEN 

0 1 DO 

3C 

1 078 


INC 

A 

0 1 D 1 

20E7 

1 079 


JR 

NZ, MPIZBK-* 

01D3 

FD 360900 

1 080 


LD 

< I Y+CBA ) , 0 

01D7 

FB 

1081 


El 


01D8 

2AE84F 

1 082 


LD 

HL, ( COLLST ) ; GET SAVED COLORS 

01DB 

22ES4F 

1 083 

M COL OR : 

LD 

( COLLST ) , HL ; SAVE COLORS FOR FUTURE 

0 IDE 

0 1 0B08 

1084 


LD 

BC, 800H+C0LBX 

0 1 E 1 

EDB3 

1085 


OTIR 

; RESET THE COLORS 

01E3 

AF 

1 086 


XOR 

A 

01E4 

C9 

1 087 


RET 


0.1 E5 

CDEC03 

1088 

TTEST 

CALL 

TRCHK 

0 1 ES 

FD7709 

1 089 


LD 

( I Y+CBA ) , A 

01EB 

FD7007 

1090 


LD 

( IY+CBB), B 

01 EE 

FE13 

1091 


CP 

SKYD 

0 1 F 0 

D8 

1 092 


RET 

c 

01 FI 

FE 1 C 

1 093 


CP 

POTO 

01F3 

DO 

1 094 


RET 

NC 

01F4 

3EFF 

1 095 


LD 

A, OFFH 

OIF 6 

32EC4F 

1 096 


LD 

(TIMOUT) , A 

01F9 

C9 

1 097 


RET 




*MODC 

■UMF' Z— 80 

CROSS 

ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 2. 

ADDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 

01 FA 

C40D 

1 099 

CALCL : 

DEFW SCBL 

OIF C 

DDOD 

1 1 00 


DEFW PNCALC 

01FE 

2010 

1 101 


DEFW CALCST ; START OF CALCULATOR 




1103 

; SY 

STEM ROUTINES JUMP VECTOR 



1 104 


ORG 200H 


0200 

C 3 AO 04 

1 105 


JP TIMEZ ; 

DO TIMER ?/. MUSIC 

0203 

C37B04 

1 106 


JP TIMEX ; 

DECTMR 

0206 

20 

1108 

SYSFNT 

: DEFB 20 H 


0207 

oy 

1 1 09 


DEFB 8 


0208 

08 

1110 


DEFB 8 


0209 

01 

1111 


DEFB 1 


020 A 

07 

1112 


DEFB 7 


020B 

E408 

1 1 13 


DEFW LRGCHR 


020D 

AO 

1115 

SMLFNT 

DEFB OAOH 


02 OE 

04 

1116 


DEFB 4 


02 OF 

06 

1 117 


DEFB 6 


0210 

01 

1118 


DEFB 1 


02 1 1 

05 

1119 


DEFB 5 


0212 

BFOA 

1 1 20 


DEFW SMLCHR 




1 122 

; ALLKEYS MASK 


02 1 4 

3F 

1 123 

AKEYS 

DEFB 3FH 


0215 

3F 

1124 


DEFB 3FH 


0216 

3F 

1 125 


DEFB 3FH 


0217 

3F 

1 126 


DEFB 3FH 




1128 

; HEAD 

OF ONBOARD MENU 


02 1 8 

BEOD 

1129 

GIJNLNK 

DEFW CML 


021 A 

CAOD 

1 1 30 


DEFW F'NGF 


02 1 C 

DEI 7 

1131 


DEFW GFSTRT 


02 IE 

4D4 15820 

1132 


DEFM "MAX SCORE" 


0227 

00 

1 1 33 


DEFB 0 


0228 

23204F46 

1134 


DEFM "# OF PLAYERS" 


0234 

00 

1 1 35 


DEFB 0 


0235 

23204F46 

1136 


DEFM "# OF GAMES" 


023F 

00 

1137 


DEFB 0 
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A Ei DR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 



1 1 39 

, NAME : 


CONVERT MASK TO DELTAS 



1140 

; INPUT: 


B = JOYSTICK MASK 



114 1 

i 


C = FLOP STATUS (MR FLOP BIT SET IF FLOP 



1 1 42 

.i 


DE = X POSITIVE DELTA 



1143 



HL = Y POSITIVE DELTA 

0240 

CDS 60 2 

1144 

MMTD: 

CALL 

CON CF'L ; HANDLE Y 

0243 

EB 

1 145 


EX 

DE, HL 

0244 

CB7 1 

1146 


BIT 

MRFLOF', C ; FLOP SET? 

0246 

2807 

1147 


JR 

Z,MMTD2— $ ; YES - DOIT 

0248 

78 

1 1 48 


LD 

A, B ; NO - GET MASK 

0249 

E603 

1 1 49 


AND 


024E: 

2801 

1 1 50 


JR 

Z, MMTD 1 

024 D 

2F 

1151 


CF'L 

; INVERT IF NOT ZERO 

02 4 E 

47 

1 1 52 

MMTD1 : 

LD 

B, A 

02 4 F 

CD5602 

1 153 

MMTD2 ' 

CALL 

CONCF'L , PROCESS X 

0252 

EB 

1 1 54 


EX 

DE, HL 

0253 

C3B80B 

1 155 


JP 

STHLDE ; STORE HL, DE AND QUIT 




1157 

i SUBROUT I NE 

TO CONDITIONALLY COMPLEMENT OR ZERO Hl. 

0256 

CB08 

1 1 58 

CONCF'L : 

RRC 

B 



0258 

300 A 

1 1 59 


JR 

NC, CONC 1—4 

i JUMP 

IF NOT UP 

025 A 

7D 

1 1 60 


LD 

A , L. 



02 5 B 

2F 

1 161 


CF'L 




02 5C 

6F 

1 1 62 


LD 

L, A 



025D 

7C 

1 163 


LD 

A, H 



025E 

2F 

1 1 64 


CF'L 




025F 

67 

1165 


LD 

H, A 



0260 


1 1 66 


INC 

HL. 



0261 

CB08 

1 1 67 


RRC 

Ei 



0263 

C9 

1 1 68 


RET 




0264 

CB08 

1 1 69 

CONC 1 : 

RRC 

B 

i DOWN 

SET? 

0266 

DS 

1 1 70 


RET 

c 

; QUIT 

IF SO 

0267 

C32B00 

1 171 


JP 

CONC 2 

; JUMP 

TO ZERO OUT 




1173 

) 

NAME : 


SCROLL MEMORY BLOCK 



1174 

t 

INPUT 


Ei = NUMBER OF LINES TO SCROLL 



1175 

> 



C = NUMBER OF BYTES ON LINE TO SCROLL 



1 1 76 




DE = LINE INCREMENT 



1177 

j 



HL = FIRST LINE TO SCROLL 

026 A 

AF 

1 178 

ME 

CROL : 

XOR 

A 

026B 

C5 

1 1 79 

MS 

CRL 1 

PUSH 

BC ; SAVE COUNTERS 

026C 

D5 

1180 



PUSH 

DE 

026D 

47 

1 181 



LD 

B, A 

026E 

EB 

1 182 



EX 

DE, HL 

026F 

19 

1 183 



ADD 

HL, DE ; ADD INCREMENT TO LINE 

0270 

E5 

1 1 84 



PUSH 

HL 

0271 

ED BO 

1 1 85 



LD I R 

i 

0273 

El 

1 1 86 



POP 

HL 

0274 

D 1 

1 1 87 



POP 

DE 

0275 

Cl 

1 188 



POP 

BC 

0276 

1 OF 3 

1 189 



DJNZ 

MSCRL1-4 

0278 

C9 

1 1 90 



RET 
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AD DR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND 

COMMENT 



1192 

; NAME 


MACRO INTERPRETER EXIT WITH CONTEXT REST 



1 1 93 

; PURPOSE: 

QUIT 

INTERPRETING AND GO HOME 

0279 

El 

1 194 

MX INTO: 

POP 

HL 

; THROW OUT DUMMY RETURN 



1 1 95 

; NAME 


RETURN FROM SYSTEM CALL 



1 196 

; PURPOSE : 

RETURNING TO USER AND RESTORATION OF REG 

027 A 

El 

1 197 

RETN: 

POP 

HL 

; RETURN ADDRESS TO HL 

027B 

FDE1 

1198 


POP 

IY 


027D 

DDE 1 

1 1 99 


POP 

IX 


027F 

D 1 

1 200 


POP 

DE 


0280 

Cl 

1201 


POP 

BC 


028 1 

FI 

1202 


POP 

AF 


0282 

E3 

1 203 


EX 

< SP ) , HL 

> STK=RETURN, HL=OLD HL 

0283 

C9 

1204 


RET 





1 206 

; NAME: 


BCD DIVIDE 



1 207 

* 




0284 

C DC 00 2 

1208 

BCDDV: 

CALL 

GNACC 

; GENERATE ACCUMULATOR 

0287 

E3 

1 209 


EX 

( SP ) , HL 

; HL = ACC, TOP = ARG2 

0288 

C5 

1210 


PUSH 

BC 


0289 

0600 

1211 


LD 

B, 0 


028B 

79 

1212 


LD 

A, C 


028C 

CB39 

1213 


SRL 

C 


028E 

09 

1214 


ADD 

HL, BC 


028F 

4F 

1215 


LD 

C, A 


0290 

EB 

1216 


EX 

DE, HL 

; HL = ARG 1 , DE = ACC 

029 1 

EDBO 

1217 


LDIR 


; HL = ARG1 FLAG+1 

0293 

Cl 

1218 


POP 

BC 


0294 

D1 

1219 


POP 

DE 


0295 

2B 

1 220 


DEC 

HL 

i 

0296 

E3 

1221 


EX 

( SP ) , HL 

i HL = ARG2, TOP = ARG1 FLAG 

0297 

C5 

1222 


PUSH 

BC 


0298 

0600 

1223 


LD 

B, 0 


02 9 A 

09 

1224 


ADD 

HL, BC 

; HL = ACC+SI ZE/2 

029B 

Cl 

1225 


POP 

BC 


029C 

OD 

1226 


DEC 

C 

; DECREMENT SIZE 

029D 

EB 

1227 


EX 

DE, HL 

; HL = ARG2, DE = ACC, TOP = AR 

029E 

IB 

1228 


DEC 

DE 


029F 

IE 

1 229 

DIV1: 

DEC 

DE 


02 AO 

AF 

1230 


XOR 

A 


02A 1 


1231 


SYSTEM NEGT 

; ARG2 = -ARG2 <10S COMP) 

02A1 

FF 

1231 

+ 

RST 

56 


02A2 

74 

1231 

+ 

DEFB 

NEGT 




1231 

+ 

IF 

NEGT. EQ. 

I NTPC 



1231 

+ 

END IF 


02 A3 


1232 

DIV2: 

SYSTEM DADD 

; SUBTRACT UNTIL BORROW 

02 A3 

FF 

1232 

+ 

RST 

56 


02A4 

6E 

1232 

+ 

DEFB 

DADD 




1232 

+ 

IF 

DADD. EQ. 

I NTPC 



1232 

+ 

END IF 


02A5 

380 A 

1233 


JR 

C, DIV3-* 


02A7 

3C 

1234 


INC 

A 

; OR UNTIL LOOP COUNT > 99 

02A8 

27 

1 235 


DAA 





*MQDC 
AD DR 

02 A 9 
02 AB 
02 AC 
02 AE 
U2AF 
02B1 
02B1 
02B2 


02E3 

02B3 

02B4 


02B5 
02B6 
02B7 
02 B 8 
02 B 9 
02 BA 
02BC 
02 BD 
02 BE 

02 CO 
02C2 
02 C 3 
02 C 4 
02 C 4 
02C5 


02 C 6 
02C7 
02 C 7 
02C8 


02C9 
02 C A 
02 CB 
02CC 
02 CD 
02 CE 
02 DO 
02D1 
02D2 
02D3 
02D4 
02D5 
02D8 
02 DB 
02 DC 
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OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

20F8 

1236 


JR NZ-DIV2-* 

El 

1 237 


POP HL 

36 FF 

1 238 


LD < HL. ) , OFFH 

Cl 

1239 


POP BC 

186A 

1240 


JR MULT6-* 


1241 

DIV3: 

SYSTEM NEGT 

FF 

1241 

+ 

RST 56 

74 

1241 

+ 

DEFB NEGT 


1241 

+ 

IF NEGT. EQ. I NTPC 


1 24 1 

+ 

END IF 


1242 


SYSTEM DADD 

FF 

1242 

+ 

RST 56 

6E 

1242 

+ 

DEFB DADD 


1242 

+ 

IF DADD. EQ. I NTPC 


1242 

+ 

END IF 

E3 

1243 


EX ( SP ) - HL > HL = ARG 1 

2B 

1244 


DEC HL 

77 

1245 


LD < HL ) i A ; SAVE ANSWER IN ARG1 

E3 

1246 


EX ( SP ) j HL 

OD 

1247 


DEC C 

20E3 

1248 


JR NZ-DIV1-* 

El 

1249 


POP HL. 

Cl 

1 250 


POP BC 

1 855 

1251 


JR DI V4-$ 


1252 

- SUBROUTINE TO GENERATE ACCUMULATOR ON THE STACK 

DDE 1 

1253 

GNACC: 

POP I X 

AF 

1254 


XOR A 

4F 

1255 


LD C, A 


1 256 


SYSTEM DABS - ARG1=ABS VALUE 

FF 

1 256 

+ 

RST 56 

72 

1256 

+ 

DEFB DABS 


1 256 

+ 

IF DABS. EQ. I NTPC 


1256 

+ 

END IF 

EB 

1257 


EX DE, HL 


1 258 


SYSTEM DABS ; ARG2=ABS VALUE 

FF 

1258 

+ 

RST 56 

72 

1258 

+ 

DEFB DABS 


1258 

+ 

IF DABS. EQ. INTF'C 


1258 

+ 

END IF 

EB 

1259 


EX DE- HL - FLAG=1 IF NEG ANS, ELSE 

67 

1260 


LD H, A 

6F 

1261 


LD L- A 

78 

1262 


LD A, B 

E5 

1263 

MULTI 

PUSH HL -• GENERATE ACC ON STACK 

1 OFD 

1 264 


DJNZ MULT l-$ 

47 

1265 


LD B- A ; RESTORE SIZE 

39 

1266 


ADD HL, SP 

C5 

1267 


PUSH BC ; SAVE SIGN 

E5 

1 268 


PUSH HL ; SAVE STACK POINTER 

E5 

1269 


PUSH HL ; SAVE ACC POINTER 

FD660B 

1 270 


LD H- ( IY+CBH) ; RESTORE ARG2 POINTER 

FD6E0A 

1271 


LD L, < IY+CBL) 

48 

1272 


LD C, B 

DDE9 

1 273 


JP (IX) 


1274 


; DECIMAL MULTIPLY 


1275 


; GIVEN: DE>ARG 1 , HL>ARG2- B=SIZE/2 


1276 


; (SIZE/2-1 ASSUMED EVEN) 



*MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 30 


ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 



1277 


; RETURNED: ARG1 

=ANSWER, OO ON OVERFLOW 



1278 


i 





1279 


i 



02DE 

CDC002 

1280 

BCDML : 

CALL 

GNACC 

i GENERATE ACCUM 

02E 1 

7E 

1281 

MULT2 

LD 

A, <HL) 

i A=MULT LOOP COUNT 

02E2 

23 

1282 


INC 

HL 


02E3 

E3 

1283 


EX 

<SP), HL 

; HL>DEC ACC 

02E4 

A7 

1284 


AND 

A 

; IF A=0, SKIP MULT LOOP 

02E5 

2809 

1285 


JR 

Z, MULT4-* 


02E7 

EB 

1286 


EX 

DE, HL 


02E8 


1287 

MULT3: 

SYSTEM DADD 

i ELSE MULTIPLY 

02E8 

FF 

1287 

+ 

RST 

56 


02E9 

6E 

1287 

+ 

DEFB 

DADD 




1287 

+ 

IF 

DADD. EQ. I NTPC 



1287 

+ 

END IF 


02EA 

A7 

1288 


AND 

A 

; CLEAR THE CARRY BIT 

02EE: 

3D 

1289 


DEC 

A 

; DECIMAL DECREMENT 

02EC 

27 

1290 


DAA 



02ED 

20F9 

1291 


JR 

NZ, MULT3-* 


02EF 

EB 

1292 


EX 

DE, HL 


02F0 

23 

1293 

MULT 4 : 

INC 

HL 

; INCREMENT DECIMAL ACC 

02F 1 

E3 

1294 


EX 

<SP>, HL 

; HL>ARG2 

02F2 

OD 

1295 


DEC 

C 


02F3 

20EC 

1296 


JR 

NZ, MULT2-$ 


02F5 

El 

1297 


POP 

HL 


02F6 

El 

1298 


POP 

HL 

; RESTORE STACK POINTER 

02F7 

Cl 

1299 


POP 

BC 

; RESTORE SIGN 

02F8 

D5 

1 300 


PUSH 

DE 


02F9 

C5 

1301 


PUSH 

BC 


02FA 

48 

1302 


LD 

C, B 


02FB 

0600 

1303 


LD 

B, 0 


02FD 

CB39 

1304 


SRL 

C 


02FF 

09 

1305 


ADD 

HL, BC 


0300 

CB21 

1306 


SLA 

C 


0302 

EDBO 

1307 


LDIR 



0304 

Cl 

1308 


POP 

BC 


0305 

C5 

1309 


PUSH 

BC 

; CHECK FOR OVERFLOW 

0306 

CB38 

1310 


SRL 

B 


0308 

AF 

131 1 


XOR 

A 


0309 

B6 

1312 

MULT5: 

OR 

(HL) 


030A 

23 

1313 


INC 

HL 


030B 

10FC 

1314 


DJNZ 

MULT5-* 


030D 

A7 

1315 


AND 

A 

; SET FLAGS 

030E 

2803 

1316 


JR 

Z, MULT7-* 


0310 

3EFF 

1317 


LD 

A, OFFH 


0312 

12 

1318 


LD 

( DE ) , A 


0313 

Cl 

1319 

MULT7 : 

POP 

BC 

i CHECK SIGN AND 

0314 

El 

1320 


POP 

HL 


0315 

CE41 

1321 

DIV4: 

BIT 

0, C 

i NEGATE ARG1 IF NECESSARY 

0317 

2802 

1322 


JR 

Z, MULT6-* 


03 1 9 


1323 


SYSTEM BCDCHS 


0319 

FF 

1323 

+ 

RST 

56 


031 A 

6A 

1323 

+ 

DEFB 

BCDCHS 




1323 

+ 

IF 

BCDCHS. EQ. 

I NTPC 



1323 

+ 

END IF 


03 IB 

El 

1324 

MULT6: 

POP 

HL 

; RESTORE ORIGINAL STACK POINTER 

03 1C 

10FD 

1325 


DJNZ 

MULT6-* 
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A DDR 

OBJECT 

s 

TMT 

LABEL 

0PCD OPERAND COMMENT 

03 IE 

C9 

1 

32 

6 


RET 



1 

32 

7 


i BCD SUBTRACT ADD 



1 

32 

8 


i 



1 

32 

9 


, G I VEN : DE>ARG 1 , HL>ARG2 



1 


0 


; B=SI ZE/2+1 



1 


i 


; RETURNED: ARG1 = ANSWER 

03 IF 


1 



BCDSB : 

SYSTEM BCDCHS 

03 1 F 

FF 

1 

3-" 

2 

+ 

RST 56 

0320 

6 A 

1 

Z*-Z 

•~y 

+ 

DEFB BCDCHS 



1 

33 

9 

+ 

IF BCDCHS. EQ. I NTPC 



1 

3 3 

\7 


END IF 

032 1 


1 


o 

BCD AD: 

SYSTEM BCDNEG 

032 1 

FF 

1 

"■ ■- 

o 

+ 

RST 56 

0322 

6C 

1 



+ 

DEFB BCDNEG 



1 



+ 

IF BCDNEG. EQ. I NTPC 



1 



4- 

END IF 

0323 

EB 

1 

“i •“ 

4 


EX DE, HL 

0324 


1 


5. 


SYSTEM BCDNEG 

0324 

FF 

1 


5 

+ 

RST 56 

0325 

6C 

1 

3 -z 

5 

+ 

DEFB BCDNEG 



1 


5 

+ 

IF BCDNEG. EQ. I NTPC 



1 

33 

5 

+ 

END IF 

0326 

EB 

1 


6 


EX DE, HL 

0327 


1 

3 3 

7 


SYSTEM DADD 

0327 

FF 

1 

Z'-Z 

7 

+ 

RST 56 

0328 

6E 

1 

33 

7 

+ 

DEFB DADD 



1 


7 

4- 

IF DADD. EQ. I NTPC 



1 


7 

4- 

END IF 



1 


8 

; AND 

FALL INTO 



1 


9 


i 



1 

340 


i 



1 

341 


; DECIMAL SIGNED MAGNITUDE 



1 

34 

- 7 

JU 


i 



1 

34 

•1* 


> GIVEN: DEOARG (10'S COMPLEMENT) 



1 

344 


, B=S I ZE/2+1 



1 

34 

5 


; RETURNED: ARG (SIGNED MAGNITUDE) 



1 

346 


> 

0329 

68 

1 

347 

SDSMG : 

LD L, B ; HLOARG+B-l (SIGN BYTE) 

032 A 

2D 

1 

34 

8 


DEC L 

032B 

2600 

1 

349 


LD H, 0 

032D 

19 

1 

“iC 

0 


ADD HL, DE 

032E 

7E 

1 

35 

1 


LD A, (HL) ; IF POS (SIGN NIBBLEC5) 

03 2 F 

FE50 

1 

35 

7 


CP 5 OH 

033 1 

D8 

1 

35 



RET C ; EX IT 

0332 

EB 

1 

35 

4 


EX DE, HL 

0333 

3E00 

1 

355 

SDSMG 1 

: LD A, 0 i ELSE 10 'S COMPLEMENT 

0335 

9E 

1 

35 

6 


SBC A, (HL) 

0336 

27 

1 

“jcr 

7 


DAA 

0337 

77 

1 

3«=jpj 


LD < HL ) , A 

0338 

■~r O 

1 

35 

9 


INC HL 

0339 

10F8 

1 

360 


D.JNZ SDSMG 1-$ 

033B 

2B 

1 

361 


DEC HL ; AND SET SIGN BIT 

033C 

7E 

1 

33 



LD A, (HL) 

03 3D 

F 680 

1 

33 

o 


OR 80H 

033F 

77 

1 

364 


LD ( HL ) , A 

0340 

C9 

1 

33 

5 


RET 



1 

366 


i 



*MODCOMP Z— 80 
ADDR OBJECT 


0341 68 

0342 2D 

0343 2600 

0345 19 

0346 CB7E 

0348 C8 

0349 3600 
03 4 B EB 
034C AF 
034D 3E00 
034F 9E 

0350 27 

0351 77 

0352 23 

0353 1 OF 8 
0355 C9 


0356 68 

0357 2600 

0359 2D 
03 5 A 19 
035B CB7E 
035D C8 
035E 3600 

0360 FD3406 
0363 C9 


0364 48 

0365 0600 

0367 OD 

0368 09 

0369 7E 
036 A EESO 

036 C 77 
03 6 D C9 


CROSS 

ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 32 

STMT 

LABEL 

OF'CD OPERAND COMMENT 

1367 


- 

1 368 


i BCD NEGATE 

1369 


/ 

1 370 


; GIVEN: DE>ARG (SIGNED MAGNITUDE) 

1371 


- B=SIZ E/2+1 

1372 


; RETURNED: ARG < 10 'S COMPLEMENT) 

1373 


i 

1374 

BCDNG: 

LD L, B , HL/ARG+B-l (SIGN BYTE) 

1 375 


DEC L 

1 376 


LD H, 0 

1377 


ADD HL, DE 

1 378 


BIT 7, (HL) ; EXIT IF POS 

1 379 


RET Z 

1 380 


LD ( HL ) , 0 ; CLEAR SIGN BYTE 

1381 


EX DE, HL 

1 

SNEGT : 

XOR A ; CLEAR CARRY 

1 383 

BCDNG 1 : 

LD A, 0 ■, ELSE 10'S COMPLEMENT 

1 384 


SBC A, (HL) 

1 385 


DAA 

1 386 


LD ( HL ) , A 

1 387 


INC HL 

1 388 


DJNZ BCDNG l-$ 

1 389 


RET 

1 390 



1391 


i 

1392 


i DECIMAL ABSOLUTE 

1 393 


i 

1 394 


; GIVEN: DE>ARG (SIGNED MAGNITUDE) 

1395 


; B=SIZE/2+l 

1 396 


i RETURNED: C=C+1 IF SIGN BIT CLEARED 

1397 


; 

1 398 

SDABS: 

LD L, B 

1 399 


LD H, 0 

1 400 


DEC L 

1401 


ADD HL, DE 

1402 


BIT 7, (HL) 

1 403 


RET Z 

1 404 


LD ( HL ) , 0 

1 405 


INC ( IY+CBC) 

1 406 


RET 

1 407 


/ 

1 408 


f 

1 409 


, BCD CHANGE SIGN 

1410 


'} 

1411 


; GIVEN: HL>ARG B=SIZE/2+l 

1412 


, (SIGNED MAGNITUDE) 

1413 


, RETURNED: ARG SIGN BIT COMPLEMENTED 

1414 


; 

1415 

BCDCS: 

LD C, B 

1416 


LD B, 0 

1417 


DEC C 

1418 


ADD HL, BC 

1419 


LD A, (HL) 

1 420 


XOR 80H 

1421 

; NAME: 

SET BYTE 

1422 

MSETB: 

LD ( HL ) , A 

1423 


RET 
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ADDR 

OBJECT 

STMT 

LABEL 

GF'CD OPERAND COMMENT 



1424 


i 



1 425 


> 



1426 


i DECIMAL ADD 



1427 


i 



1 428 


; GIVEN: DE7ARG1 HL3ARG2 ( 10'S COMPLEMENT) 



1429 


; B=SI Z E/2+1 



1430 


, RETURNED : ARG 1 ^ANSWER ( 1 0 " S COMPL I MENT ) 



1431 


* 

036E 

AF 

1432 

SDADD: 

XOR A 

036F 

1A 

1433 

SDADD1 : 

LD A, < DE ) 

0370 

8E 

1 434 


ADC A, (HL) 

037 1 

27 

1 435 


DAA 

0372 

12 

1 436 


LD < DE ) , A 

0373 

13 

1437 


INC DE 

0374 

23 

1 438 


INC HL 

0375 

1 OF 8 

1439 


DJNZ SDADD 1 

0377 

FE99 

1 440 


CP 99H ; 

0379 

17 

1441 


RLA 

037 A 

2F 

1442 


CF'L i 

037B 

FD7708 

1443 


LD ( IY+CBFLAG) , A ; SEND BACK STATUS FROM DADD 

03 7 E 

C9 

1444 


RET 




1446 

; NAME : 


RANGED RANDOM NUMBER 



1 447 

; INPUT: 


A = RANGE 



1448 

i OUTPUT 

A = RANDOM NUMBER <0 TO RANGE- 1 ) 

U ~7 r 

F5 

1449 

MRANGE : 

PUSH 

AF 

0380 

2AEF4F 

1 450 


LD 

HL, < RANSHT ) 

0383 

CD AC 03 

1451 


CALL 

SHIFTR 

0386 

0 1 1 700 

1452 


LD 

BC, 23 

0339 

09 

1 453 


ADD 

HL, BC 

038 A 

y A 

1454 


ADC 

A, D 

038B 

22EF4F 

1 455 


LD 

< RANSHT ) , HL. 

038E 

2AF14F 

1 456 


LD 

HL, ( RANSHT +2 ) 

039 i 

5F 

1457 


LD 

E, A 

; .j V xi 

CDAC03 

1458 


CALL 

SHIFTR 

0395 

19 

1459 


ADD 

HL, DE 

0396 

22F 1 4F 

1 460 


LD 

< RANSHT +2 ) , HL 

0399 

5 A 

1 46 1 


LD 

E, D 

039 A 

b. B 

1462 


EX 

DE, HL. 

039b 

F 1 

1463 


POP 

AF 

039C 

A7 

1464 


AND 

A 

039D 

4F 

1 465 


LD 

C, A 

039E 

7A 

1466 


LD 

A, D 

03 9F 

2808 

1467 


JR 

Z, R3-$ 

03 A 1 

AF 

1 468 


XOR 

A 

03A2 

19 

1 469 

Rl: 

ADD 

HL, DE 

03A3 

300 1 

1470 


JR 

NC, R2-$ 

03 A 5 

3C 

1471 


INC 

A 

03 A 6 

OD 

1472 

R2: 

DEC 

c 

03A7 

2 OF 9 

1473 


JR 

NZ, Rl-$ 

03A9 

C3D10A 

1474 

R 8 ■ 

JP 

GFROG 

03 AC 

44 

1475 

SHIFTR: 

LD 

B, H 

03 AD 

4D 

1 476 


LD 

C, L 

03 A E 

AF 

1477 


XOR 

A 

03 AF 

1 607 

1478 


LD 

D, 7 
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A DDR OBJECT 

STMT 

LABEL OF'CD 

OPERAND COMMENT 

03B1 29 

1479 

SHI: ADD 

HL, HL 

03B2 17 

1 480 

RLA 


03B3 15 

1481 

DEC 

D 

03B4 20FB 

1482 

JR 

NZ,SHl-$ 

03B6 09 

1483 

ADD 

HL, BC 

03B7 8 A 

1 484 

ADC 

A, D 

03BS C9 

1 485 

RET 



1 487 

> NAME: 

SAVE AREA 


1 488 

; I NF'UT : 

HL = SCREEN ADDRESS 


1 489 


DE = SAVE AREA ADDRESS 


1 490 

} 

BC = Y, X SIZE OF AREA TO SAVE 


1 49 1 

; NOTES: 

THE SIZES OF THE OBJECT ARE SAVED IN THE 


1492 

i 

FIRST TWO BYTES OF THE SAVE AREA 

03B9 EB 

1 493 

MSAVE: EX 

DE, HL 

03 BA 71 

1494 

LD 

< HL ) , C ; SET X SIZE 

03BB 23 

1495 

INC 

HL 

03 BC 70 

1496 

LD 

< HL ) , B ; SET Y SIZE 

03 BD 23 

1497 

INC 

HL 

03 BE AF 

1498 

XOR 

A 

03BF EB 

1 499 

EX 

DE, HL 

03C0 CBF4 

1 500 

SET 

6, H ; SET NONMAGIC ADDRESS 

03C2 C5 

1 50 1 

MSAVE 1 : PUSH 

BC 

03C3 E5 

1502 

PUSH 

HL 

03C4 47 

1503 

LD 

E, A 

03C5 ED BO 

1 504 

LDIR 


03C7 El 

1505 

POP 

HL 

03C8 0E28 

1506 

LD 

C, BYTEF'L 

03CA 09 

1 507 

ADD 

HL, BC 

03 CB Cl 

1508 

POP 

EC 

03CC 1 OF 4 

1 509 

DJNZ 

MSAVE l-$ 

OSCE C9 

1510 

RET 



1512 

; NAME: F'REGAME OUTPUT PORT SETUP 


1513 

- PURPOSE: TO SET CONCOM, VERBL ETC 


1514 

; INPUTS: E 

=HGRCB, D=VERBL, A=INMOD 

03CF 0E09 

1515 

MSETUP : LD 

C, HORCB i GET BASE PORT NUMBER 

030 1 ED4 1 

1516 

OUT 

<0,13 ; HORBD 

03D3 OC 

1517 

INC 

C ; 

03D4 ED51 

1518 

OUT 

< C ) , D ; VERBL 

03D6 D30E 

1519 

OUT 

< INMOD), A 

0308 C9 

1520 

RET 



1522 

; NAME: TEST 

FOR TRANSITIONS 


1 523 

; FUNCTION: TO LOOK FOR CHANGES IN THE PORTS &TC. 


1524 

; RETURNS : A 

= 0 NO CHANGE 


1525 

; 1-8 COUNTER 

TIMER#N HIT 0 


1526 

; 9—C = POTO- 

3 CHANGED 


1527 

i D = A SECONDS UP 


1 Pi 2 8 

; E= KEYBOARD 

CHANGED < B=0-24 ) 


1529 

; F-16 : TRIGOIJOYO - T3 ! J3 



*MQDCOMP Z -SO CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 


ADDR 

OBJECT 

STMT 

LABEL 

OP CD 

OPERAND 

COMMENT 



1530 

, RETURNS NEW VALUE IN B 


OSD 9 

5E 

1531 

CTLP 

LD 

E, (HL) 


03D A 

0 1 0 1 OS 

1 532 


LD 

BC, 30 1H 


03DD 

79 

1 533 

CCTLP 

LD 

A, C 

; GET MASK 

03DE 

OF 

1 534 


RRCA 



03DF 

4F 

1 535 


L.D 

C, A 


03E0 

AS 

1 536 


AND 

E 

; CHECK IF CT BIT =1 

03 E 1 

2003 

1 537 


JR 

NZ , CCT1-* 


OSES' 

10F8 

1 538 


DJNZ 

CCTLF-* 


03E5 

C9 

1 539 


RET 



03E6 

AB 

1540 

CCT 1 : 

XOR 

E 

; MASK OUT BIT IN QUESTION 

03E7 

77 

1 54 1 


LD 

(HL), A 

; PUT BACK THE CTFLAGS OR SEMI 4 

OSES 

78 

1542 


LD 

A, B 


03E9 

Cj ~t 

1 543 


ADD 

A, D 


03EA 

El 

1544 


POP 

HL 

; OLD RET ADDR 

03EB 

C9 

1 545 


RET 



03EC 

2825 

1 546 

TRCHK : 

JR 

Z, TSEX-$ 

; SKIP COUNTER-TIMERS AND POTS? 

03EE 

21DD4F 

1547 


LD 

HL, CNT 

; GET COUNTER TIMERS STATUS 

03F 1 

1 600 

1548 


L.D 

D, 0 


03F3 

CDD903 

1549 


CALL 

CTLP 

; COUNTER TIMERS 

03F6 

1 608 

1550 


LD 

D, 8 


03F8 


1551 


INC 

HL 


03F9 

CDD903 

1552 


CALL 

CTLP 

i SEMI4S 

03FC 

01 ICO 4 

1553 


LD 

BC, 400H+P0T 0 


03 FF 

!Z3 

1554 

TF'LOP 

INC 

HL 

; -> MF'OTO 

0400 

ED78 

1555 


IN 

A, (C) 


0402 

5E 

1 556 


LD 

E, (HL) 

, GET UF'UT 

0403 

93 

1557 


SUB 

E 


0404 

3805 

1 558 


JR 

C, F'HOT-$ 

, NEW ONE LESS THAN OLD 

0406 

D608 

1 559 


SUB 

F’FUG 

; FUDGE. BOUNCE FACTOR 

0408 

3806 

1 560 


JR 

C, EPLOP-* 

; NEW MORE THAN OL.D+4 

040 A 

3C 

1561 


INC 

A 


040B 

8 3 

1562 

PHOT : 

ADD 

A, E 


040C 

77 

1563 


LD 

(HL) , A 


040D 

47 

1 564 


LD 

B, A 


04 OE 

79 

1565 


LD 

A, C 


04 OF 

C9 

1566 


RET 



0410 

oc 

1567 

EF'LOP 

INC 

c 


041 1 

1 OEC 

1 568 


DJNZ 

TPLOP-* 




1569 

; NOW 

TEST SECONDS 


0413 

2 1 E34F 

1570 

TSEX : 

LD 

HL, KEYSEX 

i HL = KEYSEX 

0416 

7E 

1571 


LD 

A, (HL) 


0417 

CB7F 

1572 


BIT 

7, A 


04 1 9 

2806 

1 573 


JR 

Z , TKEYS— $ 


04 1 B 

CBBF 

1574 


RES 

7, A 


04 1 D 

77 

1575 


LD 

(HL) , A 


04 IE 

3E 1 1 

1576 


LD 

A, SSEC 

; SECS 

0420 

C9 

1577 


RET 





1578 

; NOW 

TEST KEYBOARD 


0421 

E5 

1579 

TKEYS : 

PUSH 

HL 


0422 

CD7400 

1 580 


CALL 

DELOAD 


0425 

EB 

1581 


EX 

DE, HL 


0426 

011704 

1582 


LD 

BC, 400H+KEY3 


0429 

1 100FF 

1583 


LD 

DE, OFFOOH 

; SET BIT COUNTER+COLUMNN 

042C 

ED78 

1584 

MSK 1 : 

IN 

A, (C) 


042E 

A 6 

1585 


AND 

(HL) 

; CHECK AGAINST MASK 

042F 

200 A 

1 586 


JR 

NZ, MSENK2-* 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 

0431 

OD 

1587 


DEC 

C 

i 

NEXT PORT 

0432 

1C 

1588 


INC 

E 

i 

AND COLUMN 

0433 

23 

1589 


INC 

HL 

i 

AND MASK 

0434 

10F6 

1590 


DJNZ 

MSK1-* 



0436 

78 

1591 


LD 

A, B 

i 

NOTHING DOWN 

0437 

1E12 

1592 


LD 

E, SKYU 



0439 

1 SOB 

1593 


JR 

MSENKE-* 



04 3 E 

14 

1594 

MSENK2 

INC 

D 

i 

BIT COUNTER 

04 3C 

OF 

1595 


RRCA 




043D 

30FC 

1596 


JR 

NC, MSENK2-* 



043F 

7A 

1597 


LD 

A, D 



0440 

07 

1598 


RLCA 


i 

KEY=BIT*4 

0441 

07 

1599 


RLCA 




0442 

o o 

1600 


ADD 

A, E 

i 

+ COLUMN 

0443 

3C 

1601 


INC 

A 

i 

PLUS 1 

0444 

IE 13 

1602 


LD 

E, SKYD 



0446 

El 

1603 

MSENKE 

POP 

HL 



0447 

AE 

1604 


XOR 

< HL ) 

i 

KEY=OKEY? 

0448 

E67F 

1605 


AND 

7FH 



044A 

2807 

1606 


JR 

Z, HANDLE-* 



044C 

AE 

1 607 


XOR 

<HL) 



04 4 D 

77 

1 608 


LD 

< HL ) , A 



044E 

E67F 

1609 


AND 

07FH 



0450 

47 

1610 


LD 

B, A 



0451 

7B 

1611 


LD 

A, E 

i 

KEYBOARD RETURN CODE 

0452 

C9 

1612 


RET 






1613 

; NOW TEST HANDLES 



0453 

01 1004 

1614 

HANDLE : 

LD 

BC, 400H+SW0 



0456 

J- -Sj 

1615 

SWLOP 

INC: 

HL 

i 

-> oswo 

0457 

ED73 

1616 


IN 

A, (C) 



0459 

AE 

1617 


XOR 

(HL) 

t 

COMPARE THE 2 

045A 

2005 

1618 


JR 

NZ, SWHIT-* 



045C 

OC 

1619 


INC 

C 



045D 

10F7 

1620 


DJNZ 

SWLOF'-* 

i 

NO CHANGE 

045F 

78 

1621 


LD 

A, B 

i 

RETURN 0 

0460 

C9 

1622 


RET 




0461 

CB67 

1623 

SWHIT : 

BIT 

4, A 

i 

TEST TRIGGER 

0463 

280C 

1624 


JR 

Z, JOYS-* 

i 

NO TRIG MUST BE JOYSTICK 

0465 

E61 0 

1625 


AND 

10H 

i 

FILTER OUT TRIGGER 

0467 

AE 

1626 


XOR 

(HL) 

i 

UPDATE VALUE 

0468 

77 

1627 


LD 

( HL ) , A 



0469 

E610 

1628 


AND 

10H 



046B 

47 

1629 


LD 

B, A 



046C 

79 

1 630 


LD 

A, C 

i 

GET PORT NUMBER 

046D 

07 

1631 


RLCA 


i 

*2 

046E 

B60C 

1632 


SUB 

OCH 



0470 

C9 

1633 


RET 




0471 

AE 

1634 

JOYS: 

XOR 

(HL) 



0472 

77 

1635 


LD 

(HL), A 

i 

NO CHANGE IN TRIG SO STORE 

0473 

E60F 

1636 


AND 

OFH 

i 

TAKE OFF TRIGGER 

0475 

47 

1 637 


LD 

B, A 



0476 

79 

1638 


LD 

A, C 



0477 

07 

1 639 


RLCA 


i 

*2 

0478 

D60B 

1640 


SUE 

OBH 



047A 

C9 

1641 


RET 






*MODC 
AD DR 


04 7 B 
047C 
047D 


047E 

0480 

0488 
0485 
0487 

0489 
048 A 
048B 
048D 
048E 
048F 

0491 

0492 

0493 

0494 
0496 
0498 
049B 
049C 
049F 


04 AO 
04 A3 
04A5 
04 A6 
04A8 

04 A 9 
04 AC 
04 AD 
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OBJECT 

STMT 

LABEL OPCD 

OPERAND COMMENT 


1643 

; TIMEX 



1644 

, INPUTS HL- 

> TIME BASE IN RAM 


1 645 

; B=TIME BAS 

E MODULUS 


1 646 

; C--MASK. AS 

IN DECCTS 


1 647 

, PURPOSE: TO DECR TIMEBASE AND IF 0 RESET IF AND DECR 


1 648 

; COUNTER 

TIMERS 

35 

1649 

TIMEX: DEC 

(HL) i DEC TIMEBASE 

CO 

1 650 

RET 

NZ 

70 

1651 

LD 

< HL ) , B ; RESET TIMEBASE 



1 653 

; NAME: 

DECREMENT COUNTER TIMERS 


1654 

; INPUT 

8 : C= 

MASK 


1 655 

; USED 

BY ACT I NT AND DECCTS TO DECREMENTS CTS UNDER MASK 


1 656 

; MASK= 

*765 

43210* , IF B I T = 1 THEN DEC CORESPONDING 


1657 

; CT# , 

IF BIT =0 LEAVE CT# ALONE 


1658 

; NOTE: 

ALL 

COUNTERS ARE RUN IN BCD FOR EASY DISPLAY 

0608 

1659 

TIMEY: 

LD 

B, 8 ; NO OF BITS 

21D54F 

1 660 


L.D 

HL, CTO ; -> TO COUNTER TIMERS 

1 600 

1661 


LD 

D, 0 , RESULTS 

CB39 

1 662 

TIMLP: 

SRL. 

C , CHANGE THIS TIMER? 

300 A 

1663 


JR 

NC, ETLF'-* 

7E 

1664 


LD 

A, (HL) ; GET THE TIMER 

B7 

1 665 


OR 

A ; IS IT ZERO ALREADY? 

2806 

1 666 


JR 

Z, ETLP-* 

3D 

1 667 


DEC 

A 

27 

1668 


DAA 


2001 

1669 


JR 

NZ, +3 

37 

1 670 


SCF 


77 

1 67 1 


LD 

( HL ) , A ; STORE NEW VALUE 

"7 

X- 

1672 

ETLP: 

INC 

HL 

CB1 A 

1 673 


RR 

D ; ROTATES IN CARRY FLAG 

1 OED 

1674 


DJN2 

T I MLR— $ 

3ADD4F 

1675 


LD 

A, ( CNT ) ; COUNTER U P D A T E ?■< N U M B E R TRACKER 

B2 

1 676 


OR 

D 

32DD4F 

1677 


LD 

( CNT ) , A 

C9 

1 678 


RET 




1 680 

; NAME: TIMER ROUTINE 


1681 

; PURPOSE: 

TO UPDATE GAME TIME, TIMOUT AND MUSIC 


1 682 

, INPUTS 

OUTPUTS: NONE 


1683 

, NOTE: PUSH 

YOUR REGISTERS < AF, BC, DE, HL ) 


1 684 

TIMEZ: 

; ASSUMES YOU PUSH DA REGS 

21F94F 

1 685 

LD 

HL, PRIOR ; PR I OR I TY=T I CKS 

CB4E 

1 686 

BIT 

1, (HL) i CHECK IF TICKS OVERRUN 

CO 

1 687 

RET 

NZ ; RETURN 

CBCE 

1 688 

SET 

1, (HL) 

EB 

1 689 

EX 

DE, HL 


1 690 

; *SI XTIETH OF A SECOND INTERUPT* 

21EA4F 

1691 

LD 

HL, DURAT ; NOTE TIMER 

7E 

1692 

LD 

A, (HL) ; =0 SKIP 

B7 

1693 

OR 

A 



PAGE 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

04AE 

28 1C 

1694 


JR 

Z, SIXY-* 

04B0 

35 

1695 


DEC 

(HL) 

04B 1 

200B 

1696 


JR 

NZ, STAKO- 

04E3 

E5 

1697 


PUSH 

HL 

04B4 

DDES 

1698 


PUSH 

IX 

04B6 

CD 1405 

1 699 


CALL 

MUZ CPU 

04B9 

DDE 1 

1 700 


POP 

IX 

04BB 

El 

1701 


POP 

HL 

04 BC 

1 80E 

1702 


JR 

SI XY-* 

04 BE 

EB 

1703 

STAKO: 

EX 

DE, HL 

04 BF 

CB7E 

1 704 


BIT 

7, (HL) 

04C 1 

EB 

1705 


EX 

DE/ HL 

04 C 2 

2008 

1 706 


JR 

NZ, SI XY-$ 

04C4 

3D 

1 707 


DEC 

A 

04C5 

3D 

1 708 


DEC 

A 

04C6 

2004 

1709 


JR 

NZ, SI X Y-$ 



1710 

i A=0 



04C8 

D316 

1711 


OUT 

(VOLAB) , A 

04CA 

D315 

1712 


OUT 

( VOLC ) , A 

04CC 

23 

1713 

SIXY: 

INC 

HL 

04CD 

35 

1714 


DEC 

(HL) 

04CE 

F20205 

1715 


JP 

P, GOUT 

04D1 

363 B 

1716 


LD 

< HL ) , 59 

04D3 

23 

1717 


INC 

HL 

04D4 

EB 

1718 


EX 

DE, HL 

04D5 

21E34F 

1719 


LD 

HL, KEYSEX 

04DS 

CBFE 

1720 


SET 

7, (HL) 

04DA 

EB 

1721 


EX 

DE, HL 

04DB 

7E 

1722 


LD 

A, (HL) 

04 DC 

B7 

1723 


OR 

A 

04 DD 

2801 

1724 


JR 

Z, GTIMER- 

04DF 

35 

1725 


DEC 

(HL) 



1726 

; *GAME TIMER ONCE A 



1727 

; IF 

< SEC 

= 0 ?, MIN 



1728 


IF (SEC == 0) 



1729 


SEC=59; —MIN 



1730 


ELSE - 

—SEC 



1731 

; EL 

SE GAMETIMEUF-1 

04E0 

23 

1732 

GTIMER 

INC 

HL 

04E1 

7E 

1733 


LD 

A, (HL) 

04E2 

23 

1734 


INC 

HL 

04E3 

B6 

1735 


OR 

(HL) 

04E4 

2813 

1 736 


JR 

Z, GT02-* 

04E6 

2B 

1737 


DEC 

HL 

04E7 

7E 

1 738 


LD 

_l 

X 

<r 

04E8 

B7 

1739 


OR 

A 

04E9 

2009 

1 740 


JR 

NZ, GT01-* 

04EB 

3659 

1741 


LD 

< HL ) , 59H 

04ED 

v 

1742 


INC 

HL 

04EE 

7E 

1743 


LD 

A, (HL) 

04EF 

3D 

1744 


DEC 

A 

04 FO 

27 

1745 


DAA 


04F 1 

77 

1746 


LD 

( HL ) , A 

04F2 

1 80 E 

1747 


JR 

GOUT-* 

04F4 

3D 

1748 

GT01 : 

DEC 

A 

04F5 

27 

1749 


DAA 


04F6 

77 

1 750 


LD 

( HL ) , A 


GAME SYSTEM 
COMMENT 


$ 


; =0 DO NEXT NOTE 


; =1 QUIET NOTE 


; IF ( — TMR60C0) 

; ELZ ONWARD 
, THEN TMR60=59 
; -> TIMOUT 

; SET SECONDS UP 


; CHECK IF ZERO 

$ 

; DEC TIMOUT 
SECOND ROUTINE* 

! = 0 ) 


i — >GT SECS 
; I F ( SEC ! =0 
i ->GTM I NS 
; & MIN ! =0) 

i ->GTSECS AGAIN 
i IF (SEC ==0) 


THEN SEC=59BCD 
— >GTM I NS AGAIN 
—MIN 


i ELSE —SEC 



*MODC 

:OMP Z-SO 

CROSS 

ASSEMBLER* HOME VIDEO GAME 

AD DR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND 

04F7 

1 SO 9 

1751 


JR 

GOUT-* 

04F9 

21F84F 

1752 

GT 02 : 

LD 

HL, GAMSTB 

04FC 

CB46 

1753 


BIT 

GSBTIM, (HL) 

04FE 

2802 

1754 


JR 

Z, GOUT-* 

0500 

CBFE 

1755 


SET 

GSBEND. (HL) 

0502 

2 1F94F 

1 756 

GOUT 

LD 

HL, PRIOR 

0505 

CESE 

1757 


RES 

1, (HL) 

0507 

C9 

1758 


RET 



SYSTEM PAGE 39 

COMMENT 

ELSE GAMETIMELJF-1 


; RETURN TO BACKGND OR LO LEVEL 



*MODCOMP Z— 80 
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ADDR 

OBJECT 

STMT 

LABEL OF' CD OPERAND COMMENT 



1760 

i 

NAME: START MUZCPU 



1761 

i 

PURPOSE: TO START MUSIC PLAYING (ALSO NOISES) 



1 762 

i 

INPUTS: HL -> SCORE 



1763 

i 

A=VOICES 



1764 

» 

NOTE: YOU SHOULD LOAD MIJZSP IF YOU DO CALLS 

0508 

32D44F 

1765 

MUZ 

SET LD (VOICES), A 

05 OB 

DD22D04F 

1766 


LD ( MUZSP ) , I X 

050F 

CDFC05 

1 767 


CALL MUZSTP 

0512 

1803 

1768 


JR MUZCF'l-$ 



1769 

; 

NAME: MUZCPU 



1 770 

; 

PURPOSE: PLAYING MUSIC AND NOISES 



1771 

i 

NOTE: DURAT =0 WHEN CALLED 



1772 

i 

OUTPUT : NONE 



1773 

i 

* MUSIC PROCESSOR* 



1774 

i 

FETCH OPCODE 



1775 

i 

IF (OPCODE < 80 H ) 



1776 

i 

SET NOTE DURATION ETC 



1777 

i 

ELSE 



1778 

i 

SWITCH (OPCODE ?< OFOH) 



1779 

i 

CASE 80H: 



1 780 

■, 

IF <MASK=8) STUFF SNDBX, PC=PC+9 



1781 

i 

ELSE OUTPUT ( MASK ) =DATA 



1782 

* 

CASE 9 OH: 



1783 

i 

VOICES=DATA 



1784 

i 

CASE AOH: 



1785 

i 

( — SP) =DATA IN NIBBLE OF OP +1 



1786 

* 

CASE BOH: 



1787 

i 

SET VOLUMES = DATA, DATA 



1788 

i 

CASE COH: 



1789 

* 

SWITCH (MASK) 



1 790 

> 

CASE 9: MF'CL= ( MSP++ ) ; MPCH= < MSP++ ) ; BREAK 



1791 

i 

CASE D: ( — MSP ) =MF'CH; ( — MSP)=MPCL 



1792 

i 

CASE 0: IF — (SP)==0 THEN SP++ 



1793 

i 

CASE 3: MF'C=DATA16 



1794 

} 

CASE DOH: CALL RELATIVE 



1795 

i 

CASE EO: DURAT =DAT A 



1796 

i 

CASE FO. V0ICES=0, P0RTS=0 

0514 

2ACE4F 

1797 

MUZ CPU LD HL, (MUZPC) ; LOOK LIKE NORMAL LOOP RETURN 

0517 

DD2AD04F 

1798 

MUZ CP 1 LD IX, (MIJZSP) ; FETCH STACK POINTER 

05 IB 

7E 

1799 

OF’LOOP LD A, (HL) ; OPCODE FETCH 

05 1C 


1800 


INC HL ; — >OPERAND, DATA 

05 ID 

B7 

1801 


OR A ; TEST FOR 80H OR MORE 

05 IE 

FA5B05 

1802 


JP M, MOO 



1803 


; NORMAL NOTE OPERATOR 

0521 

32EA4F 

1804 


LD ( DURAT ) , A 

0524 

3AD44F 

1805 


LD A, (VOICES) 

0527 

01 1808 

1806 


LD BC, 800H+SNDBX 

052A 

CB3F 

1807 


SRL A ; SET NOISE 

052C 

3002 

1 808 


JR NC, +4 

052E 

EDA3 

1809 


OUT I 

0530 

0605 

1810 


LD B, 5 ; -> VIBRATO 

0532 

CB3F 

1811 


SRL A 

0534 

3002 

1812 


JR NC, +4 

0536 

ED A3 

1813 


OUT I i SET VIBRATO 

0538 

0604 

1814 


LD E, 4 ; -> NOTEC 

053A 

CB3F 

1815 

M81 

SRL A ; CHECK C, B, A 
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CROSS 

ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 41 

ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 

053C 

3009 

1816 


JR 

NC, MS2-$ 


053E 

EDA3 

1817 


OUT I 



0540 

CB3F 

1818 

M815 

SRL 

A 

; CHECK IF INC PC WAS ON 

0542 

3807 

1819 


JR 

C, M83-* 


0544 

2E 

1 820 


DEC 

HL 

; RESTORE PC 

0545 

1804 

1821 


JR 

M83-$ 


0547 

05 

1822 

M82 

DEC 

B 


0548 

23 

1823 


INC 

HL 


0549 

1 8F5 

1824 


JR 

M815-$ 


054B 

E7 

1825 

MSS 

OR 

A 


054 C 

20EC 

1 826 


JR 

NZ, M81-* 




1827 

; PLAY 

NOTE 



05 4 E 

3AD24F 

1828 


LD 

A, < PVOLAB ) 


0551 

D316 

1 829 


OUT 

< VOLAB ) , A 


0553 

3AD34F 

1 830 


LD 

A, ( PVOLMC ) 


0556 

D315 

1831 


OUT 

< VOLC ) , A 


0558 

C3F405 

1832 


JP 

MUZ 999 


055E 

FE90 

1 833 

MOO : 

CP 

90H 


055D 

3015 

1834 


JR 

NC, M01-$ 




1 835 

; -Z* 

TUFF PORT OR SOUND 

BLOCK 

055F 

CB5F 

1 836 


BIT 

3, A 

; IF (STUFF SNDBLK ) 

0561 

2808 

1837 


JR 

Z, M001-* 


0563 

78 

1 8 38 


LD 

A, B 

; SAVE B ( VSN ) 

0564 

01 1808 

1839 


LD 

BC, 8*256+SNDBX ; B=8, C=SNDBX 

0567 

EDE3 

1840 


OTIR 


; HL->NEXT OPCODE WHEN DONE 

0569 

1 8E0 

1841 


JR 

OPLOOP-* 


05613 

E607 

1842 

MOOl : 

AND 

7 

i ISOLATE PORT NUMBER 

056D 

F 6 1 0 

1843 


OR 

10H 

i PORTS 10H-17H 

056F 

4F 

1844 


LD 

C> A 

; SET PORT REGISTER 

0570 

EDA3 

1 845 


OUTI 



0572 

18A7 

1846 


JR 

OPLOOF'— $ 


0574 

2007 

1847 

M01 : 

JR 

NZ, M02-$ 


0576 

7E 

1848 


LD 

A, (HL) 

i GET NEW VOICES 

0577 

23 

1 849 


INC 

HL 


0578 

32D44F 

1 850 


LD 

(VOICES), A 


057E 

189E 

1851 


JR 

OPLOQP-* 


057D 

FEEO 

1852 

M02: 

CP 

OBOH 


057F 

3006 

1 853 


JR 

NC, M03— $ 


0581 

E60F 

1854 


AND 

OFH 


0583 

5F 

1855 


LD 

E, A 


0584 

1C 

1856 


INC 

E 


0585 

183E 

1857 


JR 

M045-* 


0587 

FECO 

1858 

M03 : 

CP 

OCOH 

; SET VOL ETC 

0589 

3009 

1 859 


JR 

NC, M04-* 




1 860 

i LOAD 

PVOLS 



058B 

1 1D24F 

1861 


LD 

DE, PVOLAB 


058E 

EDAO 

1 862 


LDI 


; DONT CARE ABOUT BC 

0590 

EDAO 

1863 


LDI 



0592 

1887 

1864 

0PLP2 

JR 

GPLOOP-* 


0594 

200 B 

1865 

M04 

JR 

NZ, M040-* 


0596 

BD3500 

1866 


DEC 

( IX+O) 

; DEC STACK TOP 

0599 

200A 

1867 


JR 

NZ, M041-* 


059E 

DD23 

1 868 


INC 

IX 


05 9 D 

23 

1 869 


INC 

HL 


059E 

23 

1870 


INC 

HL 


059F 

18F 1 

1871 


JR 

0PLP2-* 


05A1 

FEDO 

1872 

M040 

CP 

ODOH 

i PC SP STUFF 
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A DDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

05 A 3 

3027 

1873 


JR 

NC, M05-$ 


05A5 

E60F 

1874 

M041 

AND 

OFH ; 

ISOLATE MASK 

05 A 7 

FE09 

1875 


CP 

9 ; 

RETURN 

05 A 9 

20 OC 

1876 


JR 

NZ, M043-* 


05 A B 

DD6E00 

1877 


LD 

L, ( IX+O) 


05AE 

DD23 

1878 


INC 

IX 


05 BO 

DD6600 

1 879 


LD 

H, ( IX+O) 


05B3 

DD23 

1880 


INC 

IX 


05B5 

1SDB 

1881 


JR 

0PLF'2-$ 


05B7 

5E 

1882 

M043: 

LD 

E, (HL) ; 

PCL= 

05B8 

23 

1883 


INC 

HL 


05B9 

56 

1884 


LD 

D, (HL) ; 

PCH= 

05BA 

23 

1885 


INC 

HL 


05BB 

EB 

1886 


EX 

DE, HL ; 

SET THE PC 

05BC 

FE04 

1887 


CP 

4 ; 

IS IT A JMP? 

05 BE 

3 8 Ei 2 

1 888 


JR 

C, 0PLP2-* i 

IT IS 

05C0 

DD2B 

1889 

M044 

DEC 

IX ; 

ITS A CALL 

05C2 

DD7200 

1890 


LD 

( IX+O ) , D ; 

( — SP ) =PCH 

05C5 

DD2B 

1891 

M045 

DEC 

IX 


0507 

DD7300 

1892 


LD 

( IX+O ) , E ; 

( — SP ) =PCL 

050 A 

18C6 

1893 


JR 

0PLP2-* 


0500 

FEEO 

1 894 

M05: 

CP 

OEOH 


OSCE 

300 A 

1 895 


JR 

NC, M06-* 


05 DO 

E60F 

1 896 


AND 

OFH 


OSD 2 

0600 

1897 


LD 

B, 0 


OSD 4 

4F 

1898 


LD 

C , A 


OSD 5 

54 

1899 


LD 

D, H 


05D6 

5D 

1 900 


LD 

E, L 


05D7 

09 

1901 


ADD 

HL, BC 


050 8 

1 8E6 

1902 


JR 

M044-$ ; 

CALL 

05DA 

2 00 A 

1 903 

M06 

JR 

NZ, M061-* 


05 DC 

3AF94F 

1 904 


LD 

A, (PRIOR) ; 

LEGSTA 

05 DF 

EE80 

1905 


XOR 

80H 


05E1 

32F94F 

1906 


LD 

(PRIOR), A 


05E4 

1 SAC 

1907 


JR 

0PLP2-* 


05E6 

FEFO 

1908 

M061 

CP 

OFOH i 

REST VOICE (OR SUSTAIN 

OSES 

2812 

1909 


JR 

Z, MUZSTP-$ 


05EA 

7E 

1910 


LD 

A, (HL) 


05EB 

32EA4F 

1911 


LD 

( DURAT ) , A ; 

SET DURATION OF QUIET 

05EE 

23 

1912 


INC 

HL 


05EF 

AF 

1913 


XOR 

A 


05F0 

D316 

1914 


OUT 

(VOLAB), A 


05F2 

D315 

1915 


OUT 

( VOLC ) , A 




1916 

; END OF 

MUZIC PROCESSOR 


05F 4 

22CE4F 

1917 

MUZ 999: 

LD 

( MUZ PC ) , HL ; 

SAVE THE PC 

05F7 

DD22D04F 

1918 


LD 

( MUZSF' ) , I X ; 

SAVE THE STACK POINTER 

05FB 

C9 

1919 


RET 





1920 

; NAME 

MUZSTP 




1921 

; PURPOSE: 

STOP MUZ CPU, SET 

PORTS TO 0 

05FC 

AF 

1922 

MUZSTP: 

XOR 

A 


05FD 

32EA4F 

1 923 


LD 

( DURAT ) , A 


0600 

32F94F 

1 924 


LD 

(PRIOR), A 


0603 

01 1808 

1925 


LD 

BC, 800H+SNDBX 


0606 

ED 7 9 

1926 


OUT 

( C ) , A 


0608 

1 OFC 

1927 


DJNZ 

-2 


060A 

C9 

1928 


RET 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 



1930 

; NAME: 

DO IT 





1931 

, PURPOSE : 

TRANSFER CONTROL TO USER STATE TRANSITION 



1932 

; INPUT: 


A = RETURN 

CODE FROM SENTRY ROUTINE 



1933 

i 

HL = 

DO IT TABLE ADDRESS 



1934 

; OUTPUT : 





1935 

; DESCRIPTION 

THIS ROUTINE IS USED WITH THE SENTRY ROUT 



1 936 

i 

IT IS 

USED FOR DISPATCHING TO A STATE TRANSITION 



1 937 

i 

ROUTINE. THE RETURN CODE FROM SENTRY IS USED TO 



1938 

i 

SEARC 

H THE DOIT TABLE. IF A MATCH IS FOUND, CONT 



1939 

i 

TRANS 

FERED. IF NO 

MATCH IS FOUND, THE ROUTINE RE 



1940 

i 

THE DOIT TABLE IS MADE UP OF THREE BYTE ENTRYS: 



1941 

f 

BYTE 

0 BIT 7: IF SET - DO A MCALL TO THIS HANDLER 



1 942 

) 

BYTE 

0 BIT 6: IF SET - DO A RCALL TO THIS HANDLER 



1 943 

i 

BYTE 

0 BITS 5-0: RETURNCODE THIS ROUTINE IS TO PR 



1944 

i 

BYTE 

1 AND 2: THE ADDRESS TO TRANSFER TO. 



1945 

i 

THE LIST IS TERMINATED BY A BYTE WHICH IS . GE. OC 

060B 

78 

1946 

MDOITB 

LD 

A, B 


060C 

D5 

1947 

MDOIT : 

PUSH 

DE 


060 D 

57 

1948 


LD 

D, A 


060 E 

7E 

1949 

MDOITO: 

LD 

A, < HL ) 

GET RETURN CODE FOR THIS ENTR 

06 OF 

4F 

1 950 


LD 

C , A 

C = CURRENT ENTRY 

06 1 0 

FECO 

1951 


CP 

OCOH 

LIST TERMINATOR? 

0612 

3802 

1952 


JR 

C, MD0IT1-* 

NO - JUMP 

0614 

D1 

1953 


POP 

DE 

YES - RETURN 

06 1 5 

C9 

1954 


RET 



0616 

23 

1 955 

MDOIT 1 : 

INC 

HL 


06 1 7 

E63F 

1956 


AND 

3FH 


0619 

BA 

1 957 


CP 

D 

NORMAL MATCH? 

061 A 

2804 

1958 


JR 

Z, MD0IT2— * 

JUMP IF SO 

06 1 C 

23 

1 959 

MD01A: 

INC 

HL 

NO MATCH - SKIP OVER 

06 ID 

23 

1960 


INC 

HL 

GO TO ADDRESS 

06 IE 

18EE 

1961 


JR 

MDOITO-* 


0620 

D1 

1962 

MD0IT2: 

POP 

DE 


0621 

5E 

1963 

MD0IT3: 

LD 

E, < HL ) 

DE = GOTO ADDR 

0622 

23 

1964 


INC 

HL 


0623 

56 

1965 


LD 

D, (HL) 


0624 

EB 

1 966 


EX 

DE, HL 


0625 

CB79 

1967 


BIT 

7, C 

MCALL? 

0627 

C27D00 

1968 


JP 

NZ, MMCALL 

JUMP IF SO 

062A 

CB7 1 

1 969 


BIT 

6, C 

RCALL? 

062C 

2004 

1970 


JR 

NZ, MRCALL-* 


062E 

D1 

1971 


POP 

DE 

MUST BE JUMP 

062F 

FI 

1972 


POP 

AF 


0630 

E5 

1973 


PUSH 

HL 


0631 

EB 

1974 


EX 

DE, HL 




1975 

i RCALL 

ROUTINE 


0632 

E9 

1 976 

MRCALL : 

JP 

(HL) 




1977 





1 978 

; * VECTORING ROUTINES * 




1979 





1980 

; NAME 


VECTOR X AND Y COORDINATES 



1981 

i PURPOSE: 

UPDATE X, Y 

COORDINATES AND LIMIT CHECK 



1982 

; I NPUT : 

IX = VECTOR PACKET 



1 983 

; 


HL = LIMIT 

S TABLE 



1984 

; OUTPUT : 

C = TIME BASE USED 



1 985 

; 


NONZERO STATUS SET IF OBJECT MOVED 
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* MOD COMP Z— 80 
A DDR OBJECT 


0633 FDCB08F6 
0637 DDCB017E 
06 3 B DD4E02 
063 E DD 360200 
0642 FD7106 

0645 C8 

0646 79 

0647 A7 

0648 C8 

0649 110300 
064C DD 1 9 
064E CD5606 
0651 110500 
0654 DD 1 9 


CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
STMT LABEL OPCD OPERAND COMMENT 


1 986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1 998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
201 1 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 
2027 


NOTES: 

THIS ROUTINE WORKS WITH A ' VECTOR PACKET 
**** w************************** * 

*BYTE* CONTENTS * NAME * 

******** * ** ******************** * 

* 00 * MAGIC REGISTER * VBMR * 

ft******************************* 

*01 * VECTOR STATUS * VBSTAT * 
******************************** 

* 02 * TIME BASE * VBTIMB * 

***************** ** ************ * 


WHICH LOO 


* 

* 


03 

04 


DELTA X 


* VBDXL 

* VBDXH 


* 

* 


******************* ************ * 

* 05 * X COORDINATE * VBXL * 

* 06 * * VBXH * 

* ****************************** * 

* 07 * X CHECKS MASK * VBXCHK * 
*********** ******************** * 

* 08 * DELTA Y * VEDYL * 

* 09 * * VBDYH * 

************ ******************* * 

* 
* 


* VBYL 

* VBYH 


* OA * Y COORDINATE 

* OB * 

******************************** 

* OC * Y CHECKS MASK * VBYCHK * 
** ***************************** * 

OPTIONS BYTE: 

BIT MEANING 

7 VECTOR IS ACTIVE 


CHECKS BYTE: 

BIT MEANING 

0 DO LIMIT CHECKS 

1 REVERSE COORDINATES ON LIMIT ATTAINMENT 
3 TARGET ATTAINED < OUTPUT) 

IF THE VECTOR IS ACTIVE, AND THE TIME BASE 
THEN THE UPDATE COORDINATE ROUTINE IS CALLED 
AND Y PORTIONS OF THE PACKET. 


IS NONZER 
FOR THE X 


2028 

MVECT : SET 

F'SWZRO, < IY+CBFLAG) ; SET ZERO FLAG 

2029 

BIT 

VBSACT , ( IX+VBS 

TAT) ; IS VECTOR ACTIVE? 

2030 

LD 

C, ( IX+VBTIMB) 

i TIME BASE TO C 

2031 

LD 

(IX+VBTIMB), 0 

; ZERO TIME BASE 

2032 

LD 

< I Y+CBC: ) , C ; 

PASS BACK TIME BASE 

2033 

RET 

Z 


2034 

LD 

A, C 


2035 

AND 

A ; 

IS TIME BASE ZERO? 

2036 

RET 

Z ; 

QUIT IF SO 

2037 

LD 

DE, VBDXL ; 

ADVANCE TO FIRST 

2038 

ADD 

I X , DE 


2039 

CALL 

MVECTC ; 

UPDATE FIRST COORDINATE 

2040 

LD 

DE, VBDYL-VBDXL 

; TO Y 

204 1 

ADD 

I X , DE 


2042 

; AND FALL INTO . . . 
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*MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


A DDR 

OBJECT 

STMT 

LABEL GF'CD 

OPERAND COMMENT 



2043 

; NAME: 

VECTOR COORDINATE 



2044 

; PURPOSE: 

UPDATE OF SINGLE COORDINATE 



2045 

i INPUT: 

IX = POINTER TO L. 0. DELTA BYTE OF VECTOR 



2046 

i 

C = TIME BASE 



2047 

i 

HL = LIMITS PACKET (IF USED) 



2048 

; OUTPUT: 

NONZERO STATUS SET IF MOTION OCCURED 



2049 

i 

(SHOULD BE SET ON CALL, SINCE IT IS NOT S 



2050 

; NOTES: 




2051 

; THIS ROUTINE OPERATES ON A SUBSET OF THE VECTOR PACK 



2052 

; ( BETWEEN 

L. 0. DELTA BYTE AND CHECKS BYTE). 



2053 

; THE DELTA IS ADDED TO THE COORDINATE TIME-BASE TIMES 



2054 

; IF OPTIONED, LIMIT CHECKING IS DONE. IF THE CHECK FA I 



2055 

; THE COORDINATE IS SET TO THE LIMIT. 



2056 

; WHEN THIS 

HAPPENS, THE LIMIT ATTAINED BIT IS SET 

0656 

E5 

2057 

MVECTC: PUSH 

HL 

0657 

DD5601 

2058 

LD 

D, ( I X+VBDCH) ; LOAD DELTA 

06 5 A 

DD5E00 

2059 

LD 

E, < IX+VBDCL) 

065D 

DD6603 

2060 

LD 

H, ( IX+VBCH) ; LOAD COORDINATE 

0660 

DD6E02 

206 1 

LD 

L, < IX+VBCL) 

0663 

7C 

2062 

LD 

A, H ; SAVE OLD COORDINATE FOR MOTIO 

0664 

41 

2063 

LD 

B, C 

0665 

19 

2064 

MVECT1: ADD 

HL, DE ; ADD DELTA TO COORD 

0666 

10FD 

2065 

DJNZ 

MVECT 1 -$ ; TIME-BASE TIMES 



2066 

, HAS MOTION OCCURED? 

0668 

BC 

2067 

CP 

H 

0669 

2804 

2068 

JR 

Z, MVCT1A-* ; JUMP TO SKIP TESTS IF SO 

066B 

FDCB08B6 

2069 

RES 

F'SWZRO, ( IY+CBFLAG) ; SET MOVED STATUS 



2070 

; IS LIMIT 

CHECK WANTED? 

066F 

DDCB0446 

2071 

MVCT1A: BIT 

VBCLMT , < I X +VBCCHK ) 

0673 

2831 

2072 

JR 

Z,MVECT6-* ; MVECT6 IF NOT 



2073 

; PERFORM 

LIMIT CHECK 

0675 

7C 

2074 

LD 

A, H 

0676 

E3 

2075 

EX 

< SP ) , HL 

0677 

46 

2076 

LD 

B, (HL) ; LIMIT TO B 

0678 

23 

2077 

INC 

HL 



2078 

, HANDLE SLIGHTLY LESS THAN ZERO CASE 

0679 

FECF 

2079 

CP 

207 ; MIDPOINT BETWEEN 160 AND 0 

067B 

3007 

2080 

JR 

NC, MVECT2-* ; JUMP TO FAIL IF >207 

067D 

B8 

2081 

CP 

B ; DO COMPARE 

067E 

3804 

2082 

JR 

C, MVECT2-* ; JUMP ON FAIL 

0680 

46 

2083 

LD 

B, (HL) ; UPPER LIMIT CHECK 

0681 

B8 

2084 

CP 

B 

0682 

3820 

2085 

JR 

C, MVECT 3-* ; JUMP ON PASS 

0684 

23 

2086 

MVECT2: INC 

HL 



2087 

; A LIMIT WA 

S EXCEEDED - SET COORDINATE AT LIMIT 

0685 

DD7003 

2088 

LD 

(IX+VBCH) , B 

0688 

DD360200 

2089 

LD 

( IX+VBCL), 0 

068C 

DDCB04DE 

2090 

SET 

VBCLAT, < IX+VBCCHK) ; SET LIMIT ATTAINED 



2091 

; IS REVERSE 

DELTA OPTION SET? 

0690 

FI 

2092 

POP 

AF ; CLEAN UP STACK 

0691 

DDCB044E 

2093 

BIT 

VBCREV, (IX+VBCCHK) 

0695 

C8 

2094 

RET 

Z ; QUIT IF NOT 



2095 

; REVERSE THE BIMBO 

0696 

7A 

2096 

LD 

A, D 

0697 

2F 

2097 

CPL 


0698 

57 

2098 

LD 

D, A 

0699 

7B 

2099 

LD 

A, E 
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ADDR 

OBJECT 

STMT 

LABEL 

OP CD 

OPERAND 

COMMENT 

06 9 A 

2F 

2 1 00 


CF'L 



06 9B 

5F 

2101 


LD 

E, A 


069C 

13 

2102 


INC 

DE 


069D 

DD7300 

2103 


LD 

( IX+VBDCL), E 

; STORE BACK 

06 AO 

DD720 1 

2104 


LD 

( IX+VBDCH) , D 


06 A 3 

C9 

2105 


RET 



06 A 4 

23 

2 1 06 

MVECT3: 

INC 

HL 

; STEP PAST LIMIT 

06 A 5 

E3 

2107 


EX 

< SP ) , HL 

; HL = COORDINATE AGAIN 

06A6 

DD7502 

2108 

MVECT6: 

LD 

( IX+VBCL), L 

; STORE BACK COORDINATES 

06A9 

DD7403 

2 1 09 


LD 

< IX+VBCH) , H 


06 AC 

El 

2110 


POP 

HL 

; RESTORE LIMITS POINTER 

06 AD 

DDCB049E 

211 1 


RES 

VBCLAT, < IX+VBCCHK) ; CLEAR ATTAINED BIT 

06B 1 

C9 

21 12 


RET 





♦MODCOMP Z— 80 

CROSS 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 



21 14 

i *************************** 



2115 

> * PAINT RECTANGLE ROUTINE * 



2116 

; ***************•»*****■«■**■«■•)(•* 



21 17 

; NAME 


PAINT RECTANGLE 



2118 

; INPUT: 

A = COLOR MASK TO WRITE 



21 19 

i 


B = Y SIZE 



2120 

i 


C = X SIZE 



2121 

i 


D = Y COORDINATE 



2122 

i 


E = X COORDINATE 

06B2 

AF 

2123 

MPA I NT 

XOR 

A 

06B3 

CD4E0B 

2124 


CALL 

RELTA1 

06B6 

EB 

2125 


EX 

DE, HL 

06B7 

CBF4 

2126 


SET 

6, H ; UNMAGIC THE ADDRE 

06 B 9 

D30C 

2127 


OUT 

(MAGIC), A 



2128 

} 

XOR 

A 

06BB 

FD5E09 

2129 


LD 

E, ( IY+CBA) 

06BE 

79 

2130 


LD 

A, C 

06BF 

OF 

2131 


RRCA 


06 CO 

OF 

2132 


RRCA 


06C 1 

E63F 

2133 


AND 

3FH 

06C3 

3C 

2134 


INC 

A 

06C4 

57 

2135 


LD 

D, A 

06C5 

15 

2136 

MPT 1 : 

DEC 

D 

06C6 

2807 

2137 


JR 

Z, MF'T2-$ 

06C8 

3EFF 

2138 


LD 

A, OFFH 

06 C A 

CDE206 

2139 


CALL 

STRIPE 

06CD 

18F6 

2140 


JR 

MPT l-$ 

06CF 

79 

2141 

MPT2: 

LD 

A, C 

06D0 

E603 

2142 


AND 

OSH 

06D2 

3C 

2143 


INC 

A 

06D3 

4F 

2144 


LD 

C, A 

06D4 

AF 

2145 


XOR 

A 

06D5 

OD 

2146 

MF'T3: 

DEC 

C 

06D6 

2806 

2147 


JR 

Z, MF'T4-$ 

06D8 

OF 

2148 


RRCA 


06D9 

OF 

2149 


RRCA 


06DA 

C6C0 

2150 


ADD 

A, 1 1 OOOOOOB 

06DC 

18F7 

2151 


JR 

MPT3-$ 

06DE 

CDE206 

2152 

MF‘T4: 

CALL 

STRIPE 

06E 1 

AF 

2153 


XOR 

A 



2154 

; AND FALL INTO . . 



2155 

; STRIPE PAINTER 



2156 

i HL = 

ADDRESS OF STRIPE A = DATA E =MASK B = 



2157 

; OUT HL=HL+1 

A = CLOBBERED 

06E2 

E5 

2158 

STRIPE: 

PUSH 

HL 

06E3 

C5 

2159 


PUSH 

BC 

06E4 

32FF0F 

2 1 60 


LD 

< WASTE ) , A 

06E7 

3AFF4F 

2161 


LD 

A, < WASTE+4000H ) 

06EA 

4F 

2162 


LD 

C, A 

06EB 

7B 

2163 

STRF'l : 

LD 

A, E 

06EC 

AE 

2164 


XOR 

(HL) 

06ED 

A1 

2165 


AND 

C 

06EE 

AE 

2 1 66 


XOR 

(HL) 

06EF 

77 

2167 


LD 

(HL), A 

06F0 

70 

2168 


LD 

A, L 

06F 1 

C628 

2169 


ADD 

A, EYTEPL 



*MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT LABEL 

06F3 

6F 

2170 

06F4 

7C 

2171 

06F5 

C-EOO 

2172 

06F7 

67 

2173 

06F8 

1 OF 1 

2174 

06FA 

Cl 

2175 

06FB 

El 

2176 

06FC 


2177 

06FD 

C9 

2178 


OPCD OPERAND COMMENT 

LD L, A 
LD A, H 
ADC A, 0 
LD H, A 
DJNZ STRP1-* 

POP BC 
POP HL 
INC HL 
RET 
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ADDR 

OBJECT 

STMT 

LABEL OP CD 

OPERAND COMMENT 



2 1 SO 

i tt#*#*#*#*##***#-*-** 



21S1 

; * WRITE ROUTINES * 



21S2 




2 1 S3 

; NOTES: 

THE GENERAL CALLING SEQUENCE FOR THE WRI 



2184 

; INPUT: 

HL = PATTERN ADDRESS 



2185 

/ 

D = Y COORDINATE 



2 1 86 

i 

E = X COORDINATE 



2187 

f 

B = Y SIZE 



2 1 88 

j 

C = X SIZE 



2189 

/ 

A = MAGIC REGISTER 



2190 

; OUTPUT : 

DE = SCREEN ADDRESS USED 



2191 

; 

THESE ROUTINES ARE NESTED, FOR EXAMPLE 



2192 

i 

WRITE, WHICH FALLS INTO WRIT, WHICH FALL 



2193 

; ENTRY: 

WRITE FROM VECTOR 



2194 

; INPUT: 

HL = PATTERN ADDRESS 



2195 

i 

IX = VECTOR ADDRESS 



2196 

; OUTPUT : 

DE, A 



2197 

; SIDE EFFECTS: BLANK BIT SET IN VECTOR STATUS BYTE 

06FE 

DD7E00 

2 1 98 

MVWRIT: LD 

A, < IX+VBMR) ; LOAD MR 

0701 

DD560B 

2199 

LD 

D, < IX+VBYH) ; LOAD Y 

0704 

DD5E06 

2200 

LD 

E, < IX+VBXH) ; LOAD X 

0707 

DDCB01F6 

220 1 

SET 

VBBLNK, (IX+VBSTAT) ; SET BLANK BIT 



2202 

; ENTRY: 

WRITE RELATIVE 



2203 

, PURPOSE : 

WRITING RELATIVE PATTERNS 



2204 

; INPUT: 

HL, DE, A 



2205 

; OUTPUT : 

DE 



2206 

; NOTES: 

PATTERN IS PRECEEDED BY RELATIVE DISPLAC 



2207 


<X FIRST, THEN Y) AND PATTERN SIZE 

07 OB 

F5 

2208 

MWRITR: PUSH 

AF ; SAVE MR 

070C 

7E 

2209 

LD 

A, (HL) ; GET REL X 

070D 

23 

22 1 0 

INC 

HL 

07 OE 

y i -! 

2211 

ADD 

A, E ; ADD TO SUPERIOR X 

07 OF 

5F 

2212 

LD 

E, A 

0710 

7E 

22 1 3 

LD 

A, (HL) ; SAME STORY FOR Y 

0711 

23 

2214 

INC 

HL 

0712 

82 

2215 

ADD 

A, D 

07 1 3 

57 

22 1 6 

LD 

D, A 

07 1 4 

FI 

2217 

POP 

AF 



2218 

; ENTRY: 

WRITE WITH PATTERN SIZE SCARE-UP 



22 1 9 

; PURPOSE : 

WRITING VARIABLE SIZED PATTERNS 



2220 

i INPUT: 

HL, DE, A 



2221 

; OUTPUT : 

DE 



2222 

; NOTES: 

FIRST TWO BYTES POINTED AT BY HL ARE TAK 



2223 


TO BE PATTERN SIZES (X SIZE FIRST) 

0715 

4E 

2224 

MWRITP: LD 

C, (HL) ; GET X SIZE 

0716 

23 

2225 

INC 

HL 

0717 

46 

2226 

LD 

B, (HL) ; AND Y 

07 IS 

23 

2227 

INC 

HL 



2228 

; ENTRY: 

WRITE WITH COORDINATE CONVERSION 



2229 

; INPUT: 

HL, DE, BC, A 



2230 

; OUTPUT : 

DE 

0719 

CDF 60 A 

2231 

MWR I T : CALL 

MRELAB i DO CONVERSION 



2232 

; ENTRY: 

WRITE ABSOLUTE 



2233 

; I NPUT : 

HL, BC, A AS ABOVE 



2234 


DE = ABSOLUTE SCREEN ADDRESS 

07 1C 

CB77 

2235 

MWRITA: BIT 

MRFLOP, A i FLOP WRITE WANTED? 
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A DDR 

OBJECT 

STMT 

LABEL 

UF'CD 

OPERAND 

COMMENT 

07 IE 

202C 

2236 


JR 

NZ, MWRTFL-* 

MWRTFL IF SO 

0720 

CB5F 

2237 


BIT 

MRXPND, A 

EXPAND WANTED? 

0722 

20 1 1 

21638 


JR 

NZ, MWX-* 

JUMP IF SO 



2239 

i DO 

NORMAL? WRITE 


0724 

AF 

2240 


X OR 

A 


0725 

C5 

2241 

MWRT : 

PUSH 

BC 


0726 

D5 

2242 


PUSH 

DE 


0727 

47 

224 ft 


LD 

B, A 

ZERO REGISTER B 

0728 

EDBO 

2244 


LDIR 


WRITE A LINE 

072A 

12 

2245 


LD 

< DE ) , A 

CLEAR THE SHIFTER 

072E 

D 1 

2246 


POP 

DE 


072C 

EB 

2247 


EX 

DE, HL 

ADVANCE TO NEXT LINE 

072D 

0E28 

2248 


LD 

C, BYTEF'L 


072F 

09 

2249 


ADD 

HL, BC 


0730 

EB 

2250 


EX 

DE, HL. 


0731 

Cl 

2251 


POP 

BC 


0732 

1 OF 1 

2252 


DJNZ 

MWRT-* 

LOOP IF MORE GOODIES 

0734 

C9 

2253 


RET 





2254 

; WRITE 

EXPANDED 


0735 

EB 

2255 

MWX: 

EX 

DE, HL 


0736 

C5 

2256 

MWX 1 : 

PUSH 

BC 


0737 

E5 

2257 


PUSH 

HL. 


0738 

41 

2258 


LD 

B, C 


0739 

1A 

2259 

MWX2: 

LD 

A, (DE) 


07 3 A 

13 

2260 


INC 

DE 


073B 

77 

226 1 


LD 

( HL ) , A 


073C 

23 

2262 


INC 

HL 


07 3D 

77 

2263 


LD 

( HL ) , A 


073E 

23 

2264 


INC 

HL 


073F 

1 OF 8 

2265 


DJNZ 

MWX2-* 


0741 

70 

2266 


LD 

( HL ) , B 


0742 

V ft 

2267 


INC 

HL 


0743 

70 

2268 


LD 

( HL ) , B 


0744 

El 

2269 


POP 

HL 


0745 

0E28 

2270 


LD 

C, BYTEF'L 


0747 

09 

2271 


ADD 

HL, BC 


0748 

Cl 

2272 


POP 

BC 


0749 

1 OEB 

2273 


DJNZ 

MWX1-* 


074E 

C9 

2274 


RET 





2275 

; ROUTINE TO HANDLE FLOPPED CASE 

074C 

CB5F 

2276 

MWRTFL : 

BIT 

MRXPND, A , 

EXPANDED FLOPPED WRITE WANTED 

074E 

2016 

2277 


JR 

NZ , MWXF-* ; 

JUMP IF YEP 

0750 

AF 

2278 


X OR 

A 


0751 

C5 

2279 

WRFL 1 : 

PUSH 

BC 


0752 

D5 

2280 


PUSH 

DE 


0753 

47 

2281 


LD 

B, A 


0754 

EDAO 

2 2ft 2 

WRFL2 : 

LDI 



0756 

IB 

2283 


DEC 

DE 


0757 

IB 

2284 


DEC 

DE 


0758 

EA5407 

2285 


JP 

F'E, WRFL2 


075B 

12 

2286 


LD 

( DE ) , A ; 


075C 

D1 

2287 


POP 

DE 


075D 

EB 

2 7 ft ft 


EX 

DE, HL ; 

SAME AS NORMAL NOW ON 

075E 

0E28 

2289 


LD 

C, BYTEF'L 


0760 

09 

2290 


ADD 

HL, BC 


0761 

EB 

2291 


EX 

DE, HL 


0762 

Cl 

2292 


POP 

BC 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND 

COMMENT 

0763 

10EC 

2293 


DJNZ 

WRFL1-* 


0765 

C:9 

2294 


RET 





2295 

i WRITE 

EXPANDED FLOPPED 

ROUTINE 

0766 

EB 

2296 

MWXF : 

EX 

DE, HL 


0767 

C5 

2297 

MWXF1 : 

PUSH 

BC 


0768 

E5 

2298 


PUSH 

HL 


0769 

41 

2299 


LD 

B, C 


076 A 

1A 

2300 

MWXF2 : 

LD 

A, (DE) 


07 6E 

13 

2301 


INC 

DE 


076C 

77 

2302 


LD 

(HL), A 


076D 

2E 

2303 


DEC 

HL 


076E 

77 

2304 


LD 

< HL ) , A 


076F 

2B 

2305 


DEC 

HL 


0770 

1 OF 8 

2306 


DJNZ 

MWXF2-* 


0772 

70 

2307 


LD 

< HL ) , B 


0773 

2B 

2308 


DEC 

HL 


0774 

70 

2309 


LD 

( HL ) , B 


0775 

El 

2310 


POP 

HL 


0776 

0E28 

2311 


LD 

C, BYTEPL 


0778 

09 

2312 


ADD 

HL, BC 


0779 

Cl 

2313 


POP 

BC 


077 A 

10EB 

2314 


DJNZ 

MWXF1-* 


077C 

C9 

2315 


RET 




2316 ; NAME: BLANK FROM VECTOR 

2317 ; PURPOSE: BLANK WITH INFO LOAD FROM VECTOR 

2318 ; INPUT: IX = VECTOR 

2319 ; E = X SIZE 

2320 , D = Y SIZE 

2321 ; NOTES: THIS ROUTINE BLANKS TO 00 

2322 ; THIS ROUTINE INTERROGATES THE BLANK BIT 

2323 ; AND REFRAINS FROM BLANKING IF NOT SET 

2324 ; IF IT WAS SET, IT IS THEN RESET 

077D DDCB0176 2325 MVBLAN: BIT VBBLNK, < I X+VBSTAT ) ; IS BLANK BIT SET? 

0781 C8 2326 RET Z ; QUIT IF NOT 

0782 DBCB01B6 2327 RES VBBLNK, < I X+VBSTAT ) ; KILL BLANK BIT 

0786 DD660E 2328 LD H, < I X+VBOAH ) ; LOAD BLANK ADDRESS- 

0789 DD6E0D 2329 LD L, < I X+VBOAL ) 

078C DDCB0076 2330 BIT MRFLOP, (IX+VBMR) ; IS FLOP SET? 

0790 2808 2331 .JR Z, MVBLA1-* ; JUMP IF NOT 

0792 7B 2332 LD A, E ; X SIZE TO A 

0793 ED44 2333 NEG ; TWOS COMPLEMENT AND ADD 1 

0795 3C 2334 INC A 

0796 4F 2335 LD C, A 

0797 06FF 2336 LD B, OFFH 

0799 09 2337 ADD HL, BC ; USE TO BACK UP SCREEN ADDRESS 

2338 ; UNMAGIC THE BLANK ADDRESS 

07 9 A 2339 MVBLA1 : 

079A CBF4 2340 SET 6, H 

079C 0600 2341 LD B, 0 ; ASSUME BLANK TO ZERO 

2342 i NAME: BLANK AREA 

2343 ; PURPOSE: SETTING N X M REGION TO CONSTANT 

2344 ; INPUT: HL = BLANK ADDRESS 

2345 ; E = X SIZE 

2346 ; D = Y SIZE 

2347 ; B = DATA TO FILL WITH 

079E 3E28 2348 MBLANK : LD A, BYTEF'L ; COMPUTE LINE INCREMENT 

07 AO 93 2349 SUB E 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

07 A 1 

4F 

2350 


LD 

C, A 

07A2 

78 

2351 


LD 

A, B ; A = DATA TO FILL WITH 

07 A3 

43 

2352 

MBLAN1 : 

LD 

B, E 

07A4 

77 

2353 

MBLAN2: 

LD 

( HL ) , A 

07 A5 

23 

2354 


INC 

HL 

07A6 

10FC 

2355 


DJNZ 

MBLAN2-* 

07 AS 

09 

2356 


ADD 

HL, BC 

07A9 

15 

2357 


DEC 

D 

07 A A 

20F7 

2358 


JR 

NZ, MBLAN1-* 

07 AC 

C9 

2359 


RET 




2360 

; NAME: 


RESTORE AREA 



2361 

; INPUT: 


HL = SCREEN ADDRESS TO RESTORE TO 



2362 

i 


DE = SAVE AREA ADDRESS- 



2363 

; NOTE: 


SIZES ARE LOADED FROM THE SAVE AREA 

07 AD 

EE 

2364 

MREST : 

EX 

DE, HL 

07AE 

4E 

2365 


LD 

C, (HL) 

07 AF 

23 

2366 


INC 

HL 

07 BO 

46 

2367 


LD 

B, (HL) 

07B1 

2~-t 

2368 


INC 

HL 

07B2 

CEF2 

2369 


SET 

6, D ; MAKE SURE WE ARE NONMAG : 

07B4 

AF 

2370 


XOR 

A 

07B5 

C5 

2371 

MREST1: 

PUSH 

BC 

07B6 

D5 

2372 


PUSH 

DE 

07B7 

47 

2373 


LD 

B, A 

07BS 

EDBO 

2374 


LDIR 


07BA 

EB 

2375 


EX 

DE, HL 

07 BE 

El 

2376 


POP 

HL 

07BC 

0E28 

2377 


LD 

C, BYTEF'L 

07BE 

09 

2378 


ADD 

HL, BC 

07BF 

EE 

2379 


EX 

DE, HL 

07 CO 

Cl 

2380 


POP 

BC 

07C1 

1 OF 2 

2381 


DJNZ 

MREST 1-* 

07C3 

C9 

2382 


RET 




♦MODCOMF' z-eo 
ADDR OBJECT 


07C4 7E 
07C5 A 7 
07C6 C8 
07C7 FACE07 
07CA FE64 
07 CC 3006 
07CE CDE107 
07D1 23 
07D2 18F0 
07D4 E617 
07D6 47 

0707 23 

0708 EB 

0709 CD A 800 
07 DC CD 68 00 
07DF 18E3 


CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
STMT LABEL OPCD OPERAND COMMENT 
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2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 


#**«* ***■********•****■*■»•■«• * 

* CHARACTER DISPLAY ROUTINES * 

* ****•*************#•***#■*•*■•#■*•»■■«■ * 

NAME: DISPLAY STRING 

PURPOSE: MESSAGE DISPLAY 

INPUT: E, D = X. Y COORDINATES 

HL = STRING ADDRESS 
IX = FONT DESCRIPTOR 

OUTPUT: D, E ALTERED AS IN DISPLAY CHARACTER 

STACK USE: 4 BYTES (EXCLUDING USE BY SYSPCH) 

EXPLANATION: AS EACH CHARACTER IS BROUGHT IN, IT 
IS TESTED FOR BEING A LIST TERMINATOR ( CHAR = 0) 
IF IT ISN'T, DISPLAY CHARACTER IS CALLED AND THE 
TEST IS REPEATED FOR THE NEXT CHARACTER. THUS 
A NULL STRING IS HANDLED PROPERLY 


2399 

STRNEW : LD 

A, (HL) 

GET CHARACTER 

2400 

AND 

A 

BE IT A TERMINATOR? 

2401 

RET 

1 

QUIT IF SO 

2402 

JP 

M, STRD1 

DISPLAY IF ALT FONT 

2403 

CP 

64H 

SUCK IN STRING? 

2404 

JR 

NC, STRD2-* 

JUMP IF YES 

2405 

STRD1 : CALL 

DISPCH 

SHOW CHAR 

2406 

INC 

HL 

ADVANCE TO NEXT CHAR 

2407 

JR 

STRNEW-* 

AND LOOP 

2408 

STRD2 : AND 

101 1 IB 

MAKE SUCK MASK 

2409 

LD 

B, A 


2410 

INC 

HL 


241 1 

EX 

DE, HL 


2412 

CALL 

MSUCK1 


2413 

CALL 

RELD 


2414 

JR 

STRNEW-* 

GO AFTER NEXT CHARACTER 

2415 

; tttf*#####*##*****###*##-**##-*-*-* 

2416 

; * CHARACTER DISPLAY ROUTINE * 

2417 

; tttf##*##**#**#********####-*-**-* 

2418 

j I NF'UT : 

A = CHARACTER 

2419 


C = OPTION 

S 

2420 

* 

D = Y COORDINATE 

2421 

i 

E = X COORDINATE 

2422 

i 

IX = FONT 

DESCRIPTOR 

2423 

; 

(ONLY IF ALTERNATE FONT USED) 

2424 

; OUTPUT : 

DE UPDATED 

TO POINT AT NEXT CHARACTER FRA 

2425 

; NOTES: 

THE OPTION 

BYTE IS FORMATTED AS FOLLOWS: 

2426 

; BITS 

CONTENTS 


2427 

■ 



2428 

; 0-1 

OFF COLOR 

FOR EXPANSION 

2429 

; 2-3 

ON COLOR FOR EXPANSION 

2430 

; 4 

OR OPTION 


2431 

; 5 

XOR OPTION 


2432 

; 6-7 

ENLARGEMENT FACTOR (N+1)X 

2433 

i 



2434 

i CHARACTERS 

BETWEEN 1 AND 

1FH, AND BETWEEN 81 H AND 9FH 


2435 

2436 

2437 

2438 

2439 


ARE INTERPRETED AS TAB CHARACTERS. THEY CAUSE THE 
CURSOR REPRESENTED BY D AND E TO BE SPACED OVER N 
CHARACTER POSITIONS, WHERE N = CHAR. AND. 7FH 
CHARACTERS BETWEEN 20H AND 7FH ARE TAKEN AS REFERENCES 
THE SYSTEM STANDARD 5X7 CHARACTER FONT. CHARACTERS 
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ADDR 

OBJECT 

STMT 

LABEL OPCD OPERAND 

COMMENT 



2440 

- BETWEEN OAOH AND OFFH REFER TO THE USER SUPPLIED ALTERN 



2441 

; CHARACTER FONT. THIS FONT IS DESCRIBED BY A FONT 



2442 

; DESCRIPTOR TABLE OF THE 

FOLLOWING FORMAT: 



2443 

; ****************************** 



2444 

, * 0 * BASE CHARACTER VALUE * 



2445 

i ****************■»•*•«•*#■■«• •«-#•*••*•«•■»•** 



2446 

i * 1 * X FRAME SIZE 




2447 




2448 

; * 2 * Y FRAME SIZE 

-* 



2449 




2450 

; * 3 * X PATTERN SIZE (BYTES) * 



2451 




2452 

i * 4 * Y PATTERN SIZE 




2453 




2454 

; * 5 * PATTERN TABLE 

■fc 



2455 

; * 6 * ADDRESS 




2456 


07E 1 

C5 

2457 

DISPCH: PUSH EC 


07E2 

E5 

2458 

PUSH HL 


07 E 3 

DDE 5 

2459 

PUSH IX 


07E5 

A 7 

2460 

AND A 


07 E 6 

FAED07 

2461 

JP M. DISCH1 

, JUMP IF YES 

07E9 

DD2 1 0602 

2462 

LD IX» SYSFNT 


07ED 

FE20 

2463 

DISCH1: CP 2 OH 

i IS CHAR C 2 OH? 

07EF 

30 OD 

2464 

JR NC)DISClB-$ 

, JUMP IF NOT 

07 F 1 

F5 

2465 

DISCI A: PUSH AF 

; LOOP TO SPACE OVER 

07F2 

CD4E08 

2466 

CALL NXTFRM 


07F5 

CDF40C 

2467 

CALL FINDL3 

, STORE IT BACK 

07 F 8 

FI 

2468 

POP AF 


07 F 9 

3D 

2469 

DEC A 


07FA 

20F5 

2470 

JR NZ, DISCI A-$ 


07 FC 

1 83B 

2471 

JR DISCH5— $ 

; JUMP TO EXIT 

07FE 

DD9600 

2472 

D I SC 1 E : SUB ( I X +FTBASE ) 

; SUBTRACT BASE CHAR 

080 1 

5F 

2473 

LD E. A 


0802 

1 600 

2474 

[ — D D> 0 


0804 

2 1 0000 

2475 

LD HL, 0 


0807 

DD4E03 

2476 

LD C, < I X+FTBYTE ) 

; MULTIPLY CHARACTER 

080 A 

DD4604 

2477 

DISCH2: LD B, < I X+FTYSI Z ) 

; BY PATTERN SIZE 

080 D 

19 

2478 

DISCH3: ADD HL, DE 


080E 

1 OFD 

2479 

DJNZ DISCH3-* 


08 1 0 

OD 

2480 

DEC C 


081 1 

20F7 

248 1 

JR NZ, DISCH2-* 


08 1 3 

DD5606 

2482 

LD D, ( I X+FTPTH ) 

; ADD TO TABLE START 

08 1 & 

DD5E05 

2483 

LD E, < I X+FTF'TL ) 


0819 

19 

2484 

ADD HL, DE 




2485 

; COMPUTE POSITION WHERE NEXT CHARACTER WOULD GO 



2486 

, AND SAVE 


08 1 A 

CD4E08 

2487 

CALL NXTFRM 

, STEP COORDINATES TO NEXT FRAM 

08 ID 

D5 

2488 

PUSH DE 

; SAVE 

08 IE 

DD4604 

2489 

LD B) < I X+FTYSI Z ) 


082 1 

C5 

2490 

D I SCH4 : PUSH BC 


0822 

E5 

2491 

PUSH HL 


0823 

CD6C08 

2492 

CALL WRTLIN 


0826 

El 

2493 

POP HL 


0827 

DD4E03 

2494 

LD C, ( I X+FTBYTE) 

, STEP TO NEXT LINE OF PATTERN 

082A 

09 

2495 

ADD HL, BC 


082 B 

Cl 

2496 

POP BC 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 

08 2C 

FD7E05 

"2497 


LD 

A, (IY+CBD) ; ADVANCE Y COORDINATE 

0 8 A F 

81 

2498 


ADD 

A, C 

0830 

FD7705 

2499 


LD 

< I Y+CBD ) , A 

0833 

1 OEC 

2500 


DJNZ 

DISCH4-* 

0835 

D1 

250 1 


POP 

DE ; RESTORE NEW POSITION 

0836 

CDF40C 

2502 


CALL 

FINDL3 ; STUFF DE BACK INTO CONTEXT 

0839 

DDE 1 

2503 

DISCH5: 

POP 

IX 

08 3 B 

El 

2504 


POP 

HL 

083C 

Cl 

2505 


POP 

BC 

083D 

C9 

2506 


RET 




2507 

; SUBROUTINE 

TO CONVERT ENLARGEMENT FACTOR TO ITERATION C 



2508 

; INPUT: 


MODE BYTE FROM CONTEXT SAVE AREA 



2509 

; OUTPUT : 

EL A = ITERATION COUNT 

083E 

FD7E06 

25 1 0 

DCLCTB: 

LD 

A. < IY+CBC) ; GET MODE BYTE 

0841 

07 

251 1 


RLCA 


0842 

07 

2512 


RLCA 


0843 

E603 

2513 


AND 

03 ; ISOLATE ENLARGEMENT FACTOR 

0845 

3C 

2514 


INC 

A 

0846 

47 

2515 


LD 

B, A 

0847 

AF 

2516 


XOR 

A 

0848 

37 

2517 


SCF 


0849 

8F 

2518 

DCLCT1 : 

ADC 

A, A 

084A 

10FD 

2519 


DJNZ 

DCLCT 1 -t 

08 4 C 

47 

2520 


LD 

B, A 

084 D 

C9 

2521 


RET 




2522 

; SUBROUTINE 

TO UPDATE COORDINATES TO POINT AT NEXT CHARA 



2523 

; FRAME: 





2524 

; INPUT: 


COORDINATES TAKEN FROM CBD, CBE IN CONTEXT 



2525 

, OUTPUT : 

UPDATED COORDINATES RETURNED IN D AND E 



2526 

i 


A, B = CLOBBERED, C=ENLARGE FACTOR CONVERT 

084 E 

CD3E08 

2527 

NXTFRM : 

CALL 

DCLCTB ; GET ITERATION COUNT 

085 1 

48 

2528 


LD 

C, B i SAVE 

0852 

FD5605 

2529 


LD 

D, (IY+CBD) ; GET Y COORD 

0855 

FD7E04 

2530 


LD 

A, (IY+CBE) , GET X COORD 

0858 

DD8601 

2531 

NXTFR1 : 

ADD 

A, ( I X+FTFSX ) ; ADD X FRAME SIZE 

085 B 

10FB 

2532 


DJNZ 

NXTFR1-* i 2**ENLARGE TIMES 

085 Hi 

FEAO 

2533 


CP 

160 ; PAST RIGHT EDGE OF SCREEN? 

085F 

3809 

2534 


JR 

C, NXTFR3-* 

0861 

7A 

2535 


LD 

A, D 

0862 

41 

2536 


LD 

B, C 

0863 

DD8602 

2537 

NXTFR2: 

ADD 

A, ( I X+FTFSY ) ; YEP - ADVANCE VERTICAL 

0866 

1 OFB 

2538 


DJNZ 

NXTFR2-* 

0868 

57 

2539 


LD 

D, A 

0869 

AF 

2540 


XOR 

A 

086 A 

5F 

2541 

NXTFR3: 

LD 

E, A 

086B 

C9 

2542 


RET 




2543 

; SUBROUTINE 

TO WRITE ONE LINE OF A PATTERN WITH ENLARGE 



2544 

; AND EXPAND 




2545 

; ENTRY: 

HL 

= SOURCE IX = FONT TABLE 

08 6 C 

DD4E03 

2546 

WRTLIN: 

LD 

C, ( I X+FTBYTE ) 

086F 

0600 

2547 


LD 

B, 0 

087 1 

DDES 

2548 


PUSH 

IX ; CAPTURE STACK POINTER 

0873 

DD2 1 0000 

2549 


LD 

IX, 0 

0877 

DD39 

2550 


ADD 

I X , SP 

0879 

DDES 

255 1 


PUSH 

IX ; SAVE CAPTURED STACK 

08 7 B 

D1 

2552 


POP 

DE ; DE = CAPTURED STACK 

08 7 C 

3E0C 

2553 


LD 

A, OCH ; SET EXPAND TO 00, 1 1 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND 

COMMENT 

087E 

D319 

2554 


OUT 

< XPAND ) , A 


0880 

3E08 

2555 


LD 

A, OSH 

; SET EXPAND BIT 

0882 

D30C 

2556 


OUT 

(MAGIC), A 


0884 

FD7E06 

2557 


LD 

A, ( IY+CBC) 

; GET CONTROL BYTE 

0887 

E6C0 

2558 


AND 

OCOH 

; ISOLATE ENLARGE AMOUNT 

0889 

282 1 

2559 


JR 

Z, WRTL3-* 

; JUMP IF ZERO 

088B 

07 

2560 


RLCA 



083C 

07 

2561 


RLCA 



088D 

EE: 

2562 

WRTL1 : 

EX 

DE, HL 


088E 

A7 

2563 


AND 

A 

; CLEAR CARRY BIT 

088F 

ED42 

2564 


SBC 

HL, BC 

; COMPUTE STACK FRAME SIZE 

089 1 

ED42 

2565 


SBC 

HL, BC 


08 V 3 

F9 

2566 


LD 

SP, HL 

; SEIZE STACK SPACE 

0894 

CBB4 

2567 


RES 

6, H 

i MAGI Cl FY THE ADDRESS 

0896 

F5 

2568 


PUSH 

AF 


0897 

41 

2569 


LD 

B, C 


0 3 9 8 

1A 

2570 

WRTL2: 

LD 

A, (DE) 

; GET SOURCE BYTE 

0899 

13 

2571 


INC 

DE 


089 A 

77 

2572 


LD 

(HL) , A 

; EXPAND IT 

089 B 


2573 


INC 

HL 


089C 

77 

2574 


LD 

(HL) , A 

» 

089 D 

2:3 

2575 


INC 

HL 


089 E 

10F3 

2576 


DJNZ 

WRTL2-* 


OSAO 

CB21 

2577 


SLA 

c 


08 A 2 

FI 

2578 


POP 

AF 


08 A3 

2 1 0000 

2579 


LD 

HL, 0 

; CAPTURE STACK TOP AGAIN 

08A6 

39 

2580 


ADD 

HL, SP 


08 A 7 

54 

2581 


LD 

D, H 

; SET DE=HL 

08A8 

5D 

2582 


LD 

E, L 

; FOR NEXT DEST COMBO 

08 A 9 

3D 

2583 


DEC 

A 


08 A A 

20E 1 

2584 


JR 

NZ, WRTLl-$ 




2585 

; NOW 

DO WRITE TO SCREEN 


08 AC 

CD3E08 

2586 

WRTL3: 

CALL 

DCLCTB 

; GET ITERATION COUNTER 

08 AF 

CD7400 

2587 


CALL 

DELOAD 


08B2 

FD7E06 

25£:8 


LD 

A, < I Y+CBC ) 


08B5 

D319 

2589 


OUT 

(XPAND), A 


08B7 

E630 

2590 


AND 

030H 


08B9 

F608 

259 1 


OR 

8 


08BB 

C DO SOB 

2592 


CALL 

RELTA 


08 BE 

EB 

2593 


EX 

DE, HL 


08BF 

F5 

2594 

WRTL4 

PUSH 

AF 


08 CO 

C5 

2595 


PUSH 

BC 


08C 1 

D5 

2596 


PUSH 

DE 


08C2 

E5 

2597 


PUSH 

HL 


08C3 

41 

2598 


LD 

B, C 


08C4 

1A 

2599 

WRTL5: 

LD 

A, (DE) 


08C5 

13 

2600 


INC 

DE 


08C6 

77 

2601 


LD 

(HL) , A 


08C7 


2602 


INC 

HL 


08C8 

77 

2603 


LD 

(HL) , A 


08C9 

23 

2604 


INC 

HL 


08CA 

10F8 

2605 


DJNZ 

WRTL5-* 


08CC 

FD7E04 

2606 


LD 

A, ( IY+CBE) 

i 

08CF 

E603 

2607 


AND 

03 


08D1 

2801 

2608 


JR 

Z, WRTL6-* 

i 

08 D3 

70 

2609 


LD 

(HL), B 


08D4 

El 

2610 

WRTL6 

POP 

HL 

i STEP TO NEXT LINE 
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ADDR 

OBJECT 

STMT 

LABEL 

OP CD 

OPERAND COMMENT 

08 D 5 

0E28 

261 1 


LD 

C, BYTEF'L 

OSD 7 

09 

26 1 2 


ADD 

HL, BC 

OSDS 

D 1 

2613 


POP 

DE 

OSD 9 

Cl 

26 1 4 


POP 

BC 

OSD A 

FI 

2615 


POP 

AF 

08DB 

D30C 

2616 


OUT 

(MAGIC), A 

08DD 

1 OEO 

2617 


DJNZ 

WRTL4-$ 

OSDF 

DDF9 

26 1 8 


LD 

SP, IX ; RESTORE STACK 

08 E 1 

DDE 1 

2619 


POP 

IX 

OSES 

C9 

2620 


RET 



2622 

; MACRO TO 

GENERATE CHARACTER PATTERN TABLE ENTRY 

2623 

DEFCHR MACR 

#A, #B, #C, #D, #E, #F, #G 

2624 

DEFB 

#A 

2625 

DEFB 

#B 

2626 

DEFB 

#C 

2627 

DEFB 

#D 

2628 

DEFB 

#E 

2629 

DEFB 

#F 

2630 

DEFB 

#G 

263 1 

ENDM 





2633 


; LARGE CHARACTER SET (8 X 8) 

08 E 4 


2634 

LRGCHR 

08E4 


2635 


DEFCHR 000 H, OOOH, OOOH, OOOH, OOOH, OOOH, OOOH ; SPACE 

0SE4 

00 

2635 

+ 

DEFB OOOH 

OSES 

00 

2635 

+ 

DEFB OOOH 

08E6 

00 

2635 

+ 

DEFB OOOH 

0SE7 

00 

2635 

+ 

DEFB OOOH 

OSES 

00 

2635 


DEFB OOOH 

08E9 

00 

2635 

+ 

DEFB OOOH 

08 E A 

00 

2635 

+ 

DEFB OOOH 

08EB 


2636 


DEFCHR 02 OH, 020H, 020H, 020H, 020H, OOOH, 020H ; 1 

08 EB 

20 

2636 

+ 

DEFB 020 H 

08EC 

20 

2636 

+ 

DEFB 020H 

OSED 

20 

2636 

+ 

DEFB 02 OH 

08EE 

20 

2636 

+ 

DEFB 020H 

08 EF 

20 

2636 

+ 

DEFB 02 OH 

08 FO 

00 

2636 

+ 

DEFB OOOH 

08F 1 

20 

2636 

+ 

DEFB 020H 

08F2 


2637 


DEFCHR 050H, 050H, 050H, OOOH, OOOH, OOOH, OOOH , " 

08F2 

50 

2637 

+ 

DEFB 050H 

0SF3 

50 

2637 

+ 

DEFB 05 OH 

08F 4 

50 

2637 

+ 

DEFB 050H 

08F5 

00 

2637 

+ 

DEFB OOOH 

08F6 

00 

2637 

+ 

DEFB OOOH 

08F7 

00 

2637 

+ 

DEFB OOOH 

08F8 

00 

2637 


DEFB OOOH 

08F9 


2638 


DEFCHR 048H, 048H, OFCH, 048H, OFCH, 048H, 048H ; # 

0SF9 

48 

2638 

+ 

DEFB 048H 

08FA 

48 

2638 

+ 

DEFB 048H 

08FB 

FC 

2638 

+ 

DEFB OFCH 

08FC 

48 

2638 

+ 

DEFB 048H 
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ADDR 

OBJECT 

STMT LABEL 

OP CD OPERAND COMMENT 

08FD 

FC 

2635 

4 

DEFB OFCH 

08 FE 

48 

263E 

+ 

DEFB 048H 

08FF 

48 

263E 

4 

DEFB 048H 

0900 


jL (l* J 


DEFCHR 02 OH, 078H, 080H, 070H, 008H, OFOH, 020H 

0900 

20 

2639 

4 

DEFB 02 OH 

0901 

78 

2639 

4 

DEFB 078H 

0902 

80 

2639 

4 

DEFB 08 OH 

0903 

70 

2639 

4 

DEFB 07 OH 

0904 

08 

2639 

4 

DEFB 008H 

0905 

FO 

2639 

4 

DEFB OFOH 

0906 

20 

2639 

+ 

DEFB 02 OH 

0907 


2640 

DEFCHR OCOH, 0C8H, 01 OH, 020H, 040H, 098H, 018H 

0907 

CO 

2640 + 

DEFB OCOH 

0908 

C8 

2640 + 

DEFB 0C8H 

0909 

10 

2640 + 

DEFB 01 OH 

090 A 

20 

2640 + 

DEFB 020H 

09 OB 

40 

2640 + 

DEFB 040H 

09 OC 

98 

264C 

4 

DEFB 098H 

090D 

18 

2640 + 

DEFB 018H 

090E 


264 1 


DEFCHR 060H, 090H, OAOH, 040H, 0A8H, 090H, 068H 

090E 

60 

264 1 

4 

DEFB 06 OH 

090F 

90 

2641 

4 

DEFB 090H 

0910 

AO 

2641 

4 

DEFB OAOH 

09 1 1 

40 

264 1 

4 

DEFB 040H 

0912 

AS 

2641 

4 

DEFB 0A8H 

09 1 3 

90 

2641 

4 

DEFB 090H 

09 1 4 

68 

2641 

4 

DEFB 068H 

09 1 5 


2642 

DEFCHR 060 H, 060H, 060H, OOOH, OOOH, OOOH, OOOH 

0915 

60 

2642 

4 

DEFB 060 H 

09 1 6 

60 

2642 

4 

DEFB 060 H 

09 1 7 

60 

2642 

4 

DEFB 060H 

0918 

00 

2642 

4 

DEFB OOOH 

09 1 9 

00 

2642 

4 

DEFB OOOH 

091 A 

00 

2642 

4 

DEFB OOOH 

09 IB 

00 

2642 

4 

DEFB OOOH 

09 1C 


2645 


DEFCHR 01 OH, 020H, 020H, 020H, 020H, 020H, 01 OH 

09 1C 

10 

2645 

4 

DEFB 01 OH 

09 ID 

20 

2645 

4 

DEFB 02 OH 

09 1 E 

20 

2645 

4 

DEFB 02 OH 

09 1 F 

20 

2645 

4 

DEFB 020H 

0920 

20 

2643 

4 

DEFB 02 OH 

0921 

20 

2645 

4 

DEFB 02 OH 

0922 

10 

2645 

4 

DEFB 01 OH 

0923 


2644 

DEFCHR 04 OH, 020H, 020H, 020H, 020H, 020H, 040H 

0923 

40 

2644 

4 

DEFB 04 OH 

0924 

20 

2644 

4 

DEFB 02 OH 

0925 

20 

2644 

4 

DEFB 02 OH 

0926 

20 

2644 

4 

DEFB 02 OH 

0927 

20 

2644 

4 

DEFB 02 OH 

0928 

20 

2644 

4 

DEFB 020 H 

0929 

40 

2644 

4 

DEFB 040H 

09 2 A 


2645 

DEFCHR OOOH, 0A8H, 070H, 0D8H, 070H, 0A8H, OOOH 

092 A 

00 

2645 

4 

DEFB OOOH 

092 B 

AS 

2645 

4 

DEFB 0A8H 

09 2C 

70 

2645 

4 

DEFB 07 OH 

092 D 

D8 

2645 + 

DEFB 0D8H 

092E 

70 

2645 

4 

DEFB 070H 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

092F 

AS 

2645 

+ 

DEFB 0A8H 

0930 

00 

2645 

+ 

DEFB OOOH 

0931 


2646 


DEFCHR OOOH, 020H, 020H, 0F8H, 020H, 020H, OOOH ; + 

0931 

00 

2646 

+ 

DEFB OOOH 

0932 

20 

2646 

+ 

DEFB 020H 

0933 

20 

2646 

+ 

DEFB 020H 

0934 

F8 

2646. 

+ 

DEFB 0F8H 

0935 

20 

2646 

+ 

DEFB 020H 

0936 

20 

2646 

+ 

DEFB 020H 

0937 

00 

2646 

+ 

DEFB OOOH 

0938 


2647 


DEFCHR OOOH, OOOH, OOOH, 060H, 060H, 020H, 040H i , 

0938 

00 

2647 

+ 

DEFB OOOH 

0939 

00 

2647 

+ 

DEFB OOOH 

093A 

00 

2647 

+ 

DEFB OOOH 

093B 

60 

2647 

+ 

DEFB 060H 

093C 

60 

2647 

+ 

DEFB 060H 

093D 

20 

2647 

+ 

DEFB 020H 

093E 

40 

2647 

+ 

DEFB 040H 

093F 


2648 


DEFCHR OOOH, OOOH, OOOH, 0F8H, OOOH, OOOH, OOOH ; - 

093F 

00 

2648 

+ 

DEFB OOOH 

0940 

00 

2648 

+ 

DEFB OOOH 

0941 

00 

2648 

+ 

DEFB OOOH 

0942 

F8 

2648 

+ 

DEFB 0F8H 

0943 

00 

2648 

+ 

DEFB OOOH 

0944 

00 

2648 

+ 

DEFB OOOH 

0945 

00 

2648 

+ 

DEFB OOOH 

0946 


2649 


DEFCHR OOOH, OOOH, OOOH, OOOH, OOOH, 060H, 060H ; . 

0946 

00 

2649 

+ 

DEFB OOOH 

0947 

00 

2649 

+ 

DEFB OOOH 

0948 

00 

2649 

+ 

DEFB OOOH 

0949 

00 

2649 

+ 

DEFB OOOH 

094A 

00 

2649 

+ 

DEFB OOOH 

094B 

60 

2649 

+ 

DEFB 060H 

094C 

60 

2649 

+ 

DEFB 060H 

094D 


2650 


DEFCHR OOOH, 008H, 01 OH, 020H, 040H, 080H, OOOH ; 

094D 

00 

2650 

+ 

DEFB OOOH 

094E 

08 

2650 

+ 

DEFB 008H 

094F 

10 

2650 

+ 

DEFB 01 OH 

0950 

20 

2650 

+ 

DEFB 020H 

0951 

40 

2650 

+ 

DEFB 040H 

0952 

80 

2650 

+ 

DEFB 080H 

0953 

00 

2650 

+ 

DEFB OOOH 

0954 


2651 


DEFCHR 070H, 088H, 088H, 088H, 088H, 088H, 070H ; 0 

0954 

70 

2651 

+ 

DEFB 070H 

0955 

88 

2651 

+ 

DEFB 088H 

0956 

88 

2651 

+ 

DEFB 088H 

0957 

88 

2651 

+ 

DEFB 088H 

0958 

88 

2651 

+ 

DEFB 088H 

0959 

88 

2651 

+ 

DEFB 088H 

095A 

70 

2651 

+ 

DEFB 070H 

095B 


2652 


DEFCHR 020H, 060H, 020H, 020H, 020H, 020H, 070H ; 1 

095B 

20 

2652 

+ 

DEFB 020H 

095C 

60 

2652 

+ 

DEFB 060H 

095D 

20 

2652 

+ 

DEFB 020H 

095E 

20 

2652 

+ 

DEFB 020H 

095F 

20 

2652 

+ 

DEFB 020H 

0960 

20 

2652 

+ 

DEFB 020H 
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ADDR 

OBJECT 

STMT 

LABEL GF'CD OPERAND COMMENT 

0961 

70 

2652 

+ 

DEFB 070 H 

0962 


2653 


DEFCHR 07 OH, 088H, 008H, 070H, 080H, 080H, 0F8H 

0962 

70 

2653 

+ 

DEFB 070H 

0963 

Q jZ; 

2653 

+ 

DEFB 088H 

0964 

08 

2653 

+ 

DEFB 008H 

0965 

70 

2653 

+ 

DEFB 070H 

0966 

80 

2653 

+ 

DEFB 080H 

0967 

80 

2653 

+ 

DEFB 08 OH 

0968 

F8 

2653 

+ 

DEFB 0F8H 

0969 


2654 


DEFCHR 070H. 088H, 008H, 030H, 008H, 088H, 070H 

0969 

70 

2654 

+ 

DEFB 07 OH 

09 6 A 

88 

2654 

+ 

DEFB 088H 

096E 

08 

2654 

+ 

DEFB 008H 

096C 

30 

2654 

+ 

DEFB 030H 

09 6 D 

08 

2654 

+ 

DEFB 008 H 

09 6 E 

88 

2654 

+ 

DEFB 088H 

096F 

70 

2654 

4- 

DEFB 07 OH 

0970 


2655 


DEFCHR 010H, 030H, 050H, 090H, 0F8H, 010H, 010H 

0970 

10 

2655 

+ 

DEFB 01 OH 

097 1 

30 

2655 

+ 

DEFB 030H 

0972 

50 

2655 

+ 

DEFB 05 OH 

0973 

90 

2655 

+ 

DEFB 090 H 

0974 

F8 

2655 

+ 

DEFB 0F8H 

0975 

10 

2655 

+ 

DEFB 01 OH 

0976 

10 

2655 

+ 

DEFB 01 OH 

0977 


2656 


DEFCHR 0F8H, 080H, OFOH, 008H, 008H, 088H, 070H 

0977 

F8 

2656 

+ 

DEFB 0F8H 

0978 

80 

2656 

+ 

DEFB 08 OH 

0979 

FO 

2656 

+ 

DEFB OFOH 

097 A 

08 

2656 

+ 

DEFB 008H 

097 B 

08 

2656 

+ 

DEFB 008 H 

097 C 

F;R 

2656 

+ 

DEFB 088H 

097D 

70 

2656 

+ 

DEFB 07 OH 

097E 


2657 


DEFCHR 030H, 040H, 080H, OFOH, 088H, 088H, 070H 

097E 

30 

2657 

+ 

DEFB OS: OH 

097 F 

40 

2657 

+ 

DEFB 040H 

0980 

80 

2657 

+ 

DEFB 080 H 

098 1 

FO 

2657 

+ 

DEFB OFOH 

0982 

88 

2657 

+ 

DEFB 088H 

0983 

88 

2657 

+ 

DEFB 088H 

0984 

70 

2657 

+ 

DEFB 070H 

0985 


2658 


DEFCHR 0F8H, 008H, 01 OH, 020H, 040H, 040H, 040H 

0985 

F8 

2658 

+ 

DEFB 0F8H 

0986 

08 

2658 

+ 

DEFB 008 H 

0987 

10 

2658 

+ 

DEFB 01 OH 

0988 

20 

2658 

+ 

DEFB 02 OH 

0989 

40 

2658 


DEFB 04 OH 

09 8 A 

40 

2658 

+ 

DEFB 04 OH 

098B 

40 

2658 

+ 

DEFB 04 OH 

098C 


2659 


DEFCHR 070H, 088H, 088H, 070H, 088H, 088H, 070H 

098C 

70 

2659 

+ 

DEFB 07 OH 

098D 

88 

2659 

+ 

DEFB 088H 

098E 

oo 

2659 

+ 

DEFB 088H 

098F 

70 

2659 

+ 

DEFB 07 OH 

0990 

88 

2659 

+ 

DEFB 088H 

099 1 

OC| 

2659 

+ 

DEFB 088H 

0992 

70 

2659 

+ 

DEFB 07 OH 
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ADDR 

OBJECT 

STMT 

LABEL OF'CD 

OPERAND COMMENT 


0993 


2660 


DEFCHR 07 OH, 088H, 088H, 078H, 008H, 01 OH, 060H ; 

9 

0993 

70 

2660 

+ 

DEFB 

070H 


0994 

88 

2660 

+ 

DEFB 

088H 


0995 

88 

2660 

+ 

DEFB 

088 H 


0996 

78 

2660 

+ 

DEFB 

078H 


0997 

08 

2660 

+ 

DEFB 

008H 


0998 

10 

2660 

+ 

DEFB 

01 OH 


0999 

60 

2660 

+ 

DEFB 

06 OH 


099 A 


2661 


DEFCHR OOOH, 060H, 060H, OOOH, 060H, 060H, OOOH ; 


099 A 

00 

266 1 

+ 

DEFB 

OOOH 


09 9E 

60 

266 1 

+ 

DEFB 

06 OH 


099C 

60 

2661 

+ 

DEFB 

06 OH 


099D 

00 

266 1 

+ 

DEFB 

OOOH 


099E 

60 

2661 

+ 

DEFB 

06. OH 


099F 

60 

2661 

+ 

DEFB 

06. OH 


09 AO 

00 

2661 

+ 

DEFB 

OOOH 


09 A 1 


2662 


DEFCHR 060H, 060H, OOOH, 060H, 060H, 020H, 040H ; 

# 

09 A 1 

60 

2662 

+ 

DEFB 

060H 


09 A 2 

60 

2662 

+ 

DEFB 

060H 


09 A 3 

00 

2662 

+ 

DEFB 

OOOH 


09 A 4 

60 

2662 

+ 

DEFB 

06 OH 


09A5 

60 

2662 

+ 

DEFB 

06 OH 


09 A 6 

20 

2662 

+ 

DEFB 

02 OH 


09 A 7 

40 

2662 

+ 

DEFB 

040 H 


09 AS 


2663 


DEFCHR 010H, 020H, 040H, 080H, 040H, 020H, 010H ; 


09 AS 

10 

2663 

+ 

DEFB 

0 1 OH 


09 A 9 

20 

2663 

+ 

DEFB 

020H 


09AA 

40 

2663 

+ 

DEFB 

040H 


09 AB 

80 

2663 

+ 

DEFB 

08 OH 


09 AC 

40 

2663 

+ 

DEFB 

040H 


09 AD 

20 

2663 

+ 

DEFB 

020H 


09 AE 

10 

2663 

+ 

DEFB 

01 OH 


09 AF 


2664 


DEFCHR OOOH, OOOH, 0F8H, OOOH, 0F8H, OOOH, OOOH ; 

= 

09 AF 

00 

2664 

+ 

DEFB 

OOOH 


09 BO 

00 

2664 

+ 

DEFB 

OOOH 


09 B 1 

F8 

2664 

+ 

DEFB 

0F8H 


09B2 

00 

2664 

+ 

DEFB 

OOOH 


09 B 3 

F8 

2664 

+ 

DEFB 

OF 8H 


09E4 

00 

2664 

+ 

DEFB 

OOOH 


09B5 

00 

2664 

+ 

DEFB 

OOOH 


09B6 


2665 


DEFCHR 04 OH, 020H, 01 OH, 008H, 01 OH, 020H, 040H ; 

> 

09B6 

40 

2665 

+ 

DEFB 

040H 


09B7 

20 

2665 

+ 

DEFB 

020 H 


09B8 

10 

2665 

+ 

DEFB 

01 OH 


09B9 

08 

2665 

+ 

DEFB 

008H 


09 BA 

10 

2665 

+ 

DEFB 

01 OH 


09BB 

20 

2665 

+ 

DEFB 

020H 


09BC 

40 

2665 

+ 

DEFB 

04 OH 


09 BD 


2666 


DEFCHR 070H, 088H, 008H, 01 OH, 020H, OOOH, 020H ; 

*7.* 

09 BD 

70 

2666 

+ 

DEFB 

07 OH 


09BE 

88 

2666 

+ 

DEFB 

088H 


09 BF 

08 

2666 

+ 

DEFB 

008H 


09C0 

10 

2666 

+ 

DEFB 

01 OH 


09 C 1 

20 

2666 

+ 

DEFB 

02 OH 


09C2 

00 

2666 

+ 

DEFB 

OOOH 


09C3 

20 

2666 

+ 

DEFB 

020H 


09C4 


2667 


DEFCHR 070H, 088H, 0B8H, 0A8H, 0B8H, 080H, 078H ; 
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A DDR 

OBJECT 

STMT 

LABEL 

OF' CD 

OPERAND COMMENT 

09 C4 

70 

2667 

+ 

DEFB 

070H 

09C5 

88 

2667 

+ 

DEFB 

088H 

09 C 6 

B8 

2667 

+ 

DEFB 

0B8H 

09C7 

AS 

2667 

+ 

DEFB 

0A8H 

09 C 8 

BS 

2667 

4 - 

DEFB 

0B8H 

09 C 9 

80 

2667 

+ 

DEFB 

08 OH 

09CA 

73 

2667 

+ 

DEFB 

078H 

09CB 


2668 


DEFCHR 070H, 088H. 088H, 0F8H, 088H, 088H, 088H 

09 CB 

70 

2668 

+ 

DEFB 

070H 

09CC 

88 

2668 

+ 

DEFB 

088H 

09CD 

SS 

2668 

+ 

DEFB 

08SH 

09CE 

FS 

2668 

+ 

DEFB 

OFSH 

09CF 

38 

2668 

+ 

DEFB 

088H 

09 DO 

“! Pi 

2668 

+ 

DEFB 

08 8 H 

09 Ei 1 

:*o 

2668 

+ 

DEFB 

088H 

09D2 


2669 


DEFCHR OFOHj 088H < 088H» OFOH< 08E:H , 088H» OFOH 

09D2 

FO 

2669 


DEFB 

OFOH 

09 D 3 

38 

2669 

+ 

DEFB 

038 H 

09D4 

Z‘ O 

2669 

+ 

DEFB 

08 8 H 

09 Do 

FO 

2669 

+ 

DEFB 

OFOH 

09D6 


2669 

+ 

DEFB 

08 8 H 

09D7 

50 

2669 

+ 

DEFB 

088H 

09 ns 

FO 

2669 

+ 

DEFB 

OFOH 

09D9 


2670 


DEFCHR 070H, 088H, 080H. 080H, 080H, 088H, 070H 

09D9 

70 

2670 

+ 

DEFB 

07 OH 

09 El A 

88 

2670 

+ 

DEFB 

088H 

09DB 

30 

2670 

+ 

DEFB 

08 OH 

09 DC: 

30 

2670 

+ 

DEFB 

08 OH 

09DD 

30 

2670 

+ 

DEFB 

08 OH 

09DE 

38 

2670 

+ 

DEFB 

08SH 

09DF 70 

2670 

+ 

DEFB 

07 OH 

09E0 


267 1 


DEFCHR OFOHj 088H, 088Hj 088H, 088H, 088H, OFOH 

09E0 F 0 

2671 

+ 

DEFB 

OFOH 

09 El 

=:y 

2671 

+ 

DEFB 

08 8 H 

09 E 2 

38 

267 1 

+ 

DEFB 

088 H 

09E3 

yy 

267 1 

+ 

DEFB 

088H 

09E4 

1*0 

2671 

+ 

DEFB 

088H 

09E5 

38 

267 1 

+ 

DEFB 

088H 

09 E 6 FO 

2671 

+ 

DEFB 

OFOH 

09E7 


2672 


DEFCHR OFSHj 080H, 080H, OEOH, 080H, 080H, 0F3H 

09E7 

F8 

2672 

+ 

DEFB 

OFSH 

09 ES 

30 

2672 

+ 

DEFB 

08 OH 

09E9 

30 

2672 

+ 

DEFB 

080 H 

09EA EO 

2672 

+ 

DEFB 

OEOH 

09EB 

30 

2672 

+ 

DEFB 

080H 

09EC 

30 

2672 

+ 

DEFB 

080H 

09 ED 

nr o 

2672 

+ 

DEFB 

OFSH 

09 EE 


2673 


DEFCHR OFSHj 080H, 080H, OEOH, 080H, 080H, 080H 

09EE 

-3 

2673 

+ 

DEFB 

OFSH 

09EF 

30 

2673 

+ 

DEFB 

08 OH 

09F0 

30 

2673 

+ 

DEFB 

08 OH 

09F 1 EO 

2673 

+ 

DEFB 

OEOH 

09F2 80 

2673 

+ 

DEFB 

080H 

09F3 

30 

2673 

+ 

DEFB 

08 OH 

09F4 

30 

2673 

+ 

DEFB 

080 H 

09F5 


2674 


DEFCHR 070H, 088H, 080H, 080H, 098H, 088H, 078H 

09F5 70 

2674 

+ 

DEFB 

07 OH 


A 


B 


D 


E 


F 


G 
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A DDR 

OBJECT STMT 

LABEL 

OP CD OPERAND COMMENT 

09F6 

RF 

2674 

+ 

DEFB 088H 

09F7 

80 2674 

+ 

DEFB 08 OH 

09F8 

80 2674 

+ 

DEFB 08 OH 

09F9 

9£ 

2674 

+ 

DEFB 098H 

09FA 

8£ 

2674 

+ 

DEFB 088 H 

09FE 

7£ 

2674 

+ 

DEFB 078H 

09FC 


2675 


DEFCHR 088 H» 088H, 088H, 0F8H, 08 8H, 088H, 088H ; 

09 FC 

8£ 

2675 

+ 

DEFB 088H 

09FD 

88 

2675 

+ 

DEFB 088 H 

09FE 

i~i c 

2675 

+ 

DEFB 08 8 H 

09FF 

F£ 

2675 

+ 

DEFB 0F8H 

0A00 

8S 

2675 

+ 

DEFB 088H 

OAO 1 

ri- 

2675 

+ 

DEFB 088H 

0A02 

se 

2675 

+ 

DEFB 088H 

0A03 


2676 


DEFCHR 070H, 020H, 020H, 02 OH, 020H, 020H, 070H , 

0A03 

7 <: 

2676 

+ 

DEFB 070H 

OAO 4 

2C 

2676 

+ 

DEFB 020H 

OAO 5 

2C 

2676 

+ 

DEFB 020H 

0A06 

20 

2676 

+ 

DEFB 02 OH 

0A07 

2C 

2676 

+ 

DEFB 02 OH 

OAO 8 

2C 

2676 

+ 

DEFB 020H 

OAO 9 

7C 

2676 

+ 

DEFB 070H 

OAO A 


2677 


DEFCHR 008H, 008H, 008H, 008H, 008H, 088H, 070H ; 

OAO A 

0£ 

2677 

+ 

DEFB 008H 

OAOB 

08 

2677 

+ 

DEFB 008H 

OAOC 

0£ 

2677 

+ 

DEFB 008H 

OAOD 

08 

2677 

+ 

DEFB 008H 

OAOE 

08 

2677 

+ 

DEFB 008H 

OAOF 

oc 

2677 

+ 

DEFB 088H 

0A10 

70 

2677 

+ 

DEFB 07 OH 

OA 1 1 


2678 


DEFCHR 088H, 090H, OAOH, OCOH, OAOH, 090H, 088H ; 

OA 1 1 

88 

2678 

+ 

DEFB 088 H 

0A1 2 

90 

2678 

+ 

DEFB 09 OH 

OA 1 3 

AO 

2678 


DEFB OAOH 

0A14 

CO 

2678 

+ 

DEFB OCOH 

OA 1 5 

AO 

2678 

+ 

DEFB OAOH 

OA 1 8 

90 

2678 

+ 

DEFB 090H 

0A17 

lO 

CO 

2678 

+ 

DEFB 088H 

OA 1 8 


2679 


DEFCHR 080H, 080H, 080H, 080H, 080H, 080H, 0F8H ; 

OA 1 8 

80 

2679 

+ 

DEFB 080H 

0A1 9 

80 

2679 

+ 

DEFEi 080 H 

0A1 A 

80 

2679 

+ 

DEFB 080H 

0A1E 

80 

2679 

+ 

DEFB 080 H 

OA 1 C 

80 

2679 

+ 

DEFB OSOH 

OA 1 D 

80 

2679 

+ 

DEFB 08 OH 

OA 1 E 

F8 

2679 

+ 

DEFB 0F8H 

OA 1 F 


2680 


DEFCHR 088H, 0D8H, 0A8H, 0A8H, 088H, 088H, 088H ; 

OA 1 F 

Qp 

2680 

+ 

DEFB 088H 

0A20 

D8 

2680 

+ 

DEFB 0D8H 

0A21 

A 8 

2680 

+ 

DEFB 0A8H 

0A22 

A 8 

2680 

+ 

DEFB 0A8H 

0A23 

yy 

2680 

+ 

DEFB 088H 

0A24 

88 

2680 

+ 

DEFB 088H 

0A25 

i“« .-1 

2680 

+ 

DEFB 08 8 H 

0A26 


2681 


DEFCHR 088H, 0C8H, 0A8H, 098H, 088H, 088H, 088H , 

0A26 

88 

2681 

+ 

DEFB 088H 

0A27 

C8 

2681 

+ 

DEFB 0C8H 



PAGE 64 


* MOD CO MR Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 
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0A28 

Ay 

2681 

+ 

DEFB 

0A8H 

0A29 

98 

2681 

+ 

DEFB 

098H 

0A2A 

O j~> 

2681 

+ 

DEFB 

0S8H 

0A2B 

oo 

L'U 

2681 

+ 

DEFB 

088H 

0A2C 

88 

2681 

+ 

DEFB 

088H 

0A2D 


2682 


DEFCHR 0F8H, 088H, 088H, 088H, 088H, 088H, 0F8H 

0A2D 

F8 

2682 

+ 

DEFB 

0F8H 

0A2E 

O O 

2682 

+ 

DEFB 

08 8 H 

0A2F 

88 

2682 

+ 

DEFB 

088H 

0A30 

88 

2682 

+ 

DEFB 

088H 

0A3 1 

;Z*;Z; 

2682 

+ 

DEFB 

088H 

0A32 

■~i i~i 

2682 

+ 

DEFB 

088H 

0A33 

F8 

2682 

+ 

DEFB 

0F8H 

0A34 


2683 


DEFCHR OFOHi 088H, 088H, 0F0H> 080 H, 080H, 080H 

0A34 

FO 

2683 

+ 

DEFB 

OFOH 

0A35 

88 

xi £■ y y 

+ 

DEFB 

088H 

0A36 

88 

2683 

+ 

DEFB 

088H 

0A37 

FO 

2683 

+ 

DEFB 

OFOH 

0A38 

80 

2683 

+ 

DEFB 

08 OH 

0A39 

80 

2683 

+ 

DEFB 

080H 

0A3A 

80 

2683 

+ 

DEFB 

080H 

0A3B 


2684 


DEFCHR 070H. 088H, 088H, 088H, 0A8H, 090H, 068H 

0A3E 

70 

2684 

+ 

DEFB 

07 OH 

0A3C 

88 

2684 

+ 

DEFB 

088H 

0A3D 

88 

2684 

+ 

DEFB 

088H 

0A3E 

o o 

2684 

+ 

DEFB 

088H 

0A3F 

AS 

2684 

+ 

DEFB 

0A8H 

0A40 

90 

2684 

+ 

DEFB 

090H 

0A41 

68 

2684 

+ 

DEFB 

068H 

0A42 


2685 


DEFCHR OFOH, 0S8H, 088H, OFOH, OAOH, 090H, 088H 

0A42 

FO 

2685 

+ 

DEFB 

OFOH 

0A43 

yj 

2685 

+ 

DEFB 

088H 

0A44 

«ZjJZ« 

2685 

+ 

DEFB 

088H 

0A45 

FO 

2685 

+ 

DEFB 

OFOH 

0A46 

AO 

2685 

+ 

DEFB 

OAOH 

0A47 

90 

2685 

+ 

DEFB 

09 OH 

0A48 

oo 

2685 

+ 

DEFB 

088H 

0A49 


2686 


DEFCHR 070H, 088H, 080H, 070H, 008H, 088H, 070H 

0A49 

70 

2686 

+ 

DEFB 

07 OH 

0A4A 

88 

2686 

+ 

DEFB 

088H 

0A4B 

80 

2686 

+ 

DEFB 

080H 

0A4C 

70 

2686 

+ 

DEFB 

070H 

0A4D 

08 

2686 

+ 

DEFB 

008H 

0A4E 

i~!!~! 

2686 

+ 

DEFB 

088H 

0A4F 

70 

2686 

4- 

DEFB 

070H 

0A50 


2687 


DEFCHR 0F8H, 020H, 020H, 020H, 020H, 020H, 020H 

0A50 

F8 

2687 

+ 

DEFB 

0F8H 

0A51 

20 

2687 

+ 

DEFB 

020H 

0A52 

20 

2687 


DEFB 

02 OH 

0A53 

20 

2687 

+ 

DEFB 

02 OH 

0A54 

20 

2687 

+ 

DEFB 

02 OH 

0A55 

20 

2687 

+ 

DEFB 

020H 

0A56 

20 

2687 

+ 

DEFB 

020H 

0A57 


2688 


DEFCHR 088H, 088H, 088H, 088H, 088H, 088H, 070H 

0A57 

oo 

2688 

+ 

DEFB 

088H 

0A58 

88 

2688 

+ 

DEFB 

088H 

0A59 

88 

2688 

+ 

DEFB 

088H 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 

0A5A 

88 

2688 

+ 

DEFB 

088H 

0A5B 

y y 

2688 

+ 

DEFE: 

088H 

0A5C 

88 

2688 

+ 

DEFB 

088H 

0A5D 

70 

2688 

+ 

DEFB 

070H 

0A5E 


2689 


DEFCHR 088H, 088H, 088H, 050H, 050H, 020H, 020H 

0A5E 

88 

2689 

+ 

DEFB 

088H 

0A5F 

88 

2689 

+ 

DEFB 

088H 

0A60 

88 

2689 

+ 

DEFB 

08SH 

0A6 1 

50 

2689 

+ 

DEFB 

050H 

0A62 

50 

2689 

+ 

DEFB 

050H 

0A63 

20 

2689 

+ 

DEFB 

02 OH 

0A64 

20 

2689 

+ 

DEFB 

020H 

0A65 


2690 


DEFCHR 088H, 088H, 088H, 0A8H, 0A8H, 0D8H, 088H 

0A65 

88 

2690 

+ 

DEFB 

088H 

0A66 

o c> 

2690 

+ 

DEFB 

088H 

0A67 

b b 

2690 

+ 

DEFB 

088H 

0A68 

AS 

2690 

+ 

DEFB 

0A8H 

0A69 

A 8 

2690 

+ 

DEFB 

0A8H 

0A6A 

D8 

2690 

+ 

DEFB 

0D8H 

0A6B 

o o 

2690 

+ 

DEFB 

088H 

0A6C 


269 1 


DEFCHR 088H, 088H, 050H, 020H, 050H, 088H, 088H 

0A6C 

88 

2691 

+ 

DEFB 

088 H 

0A6D 

88 

269 1 

+ 

DEFB 

088H 

0A6E 

50 

2691 

+ 

DEFB 

050H 

0A6F 

20 

269 1 

+ 

DEFB 

020H 

0A70 

50 

2691 

+ 

DEFB 

050 H 

0A7 1 

y y 

2691 

+ 

DEFB 

088H 

0A72 

y y 

2691 

+ 

DEFB 

088H 

0A73 


2692 


DEFCHR 088H» 088H. 050H, 020H< 020 H. 02 OH, 020H 

0A73 

oo 

2692 

+ 

DEFB 

088H 

0A7 4 

88 

2692 

+ 

DEFB 

088H 

0A75 

50 

2692 

+ 

DEFB 

05 OH 

0A76 

20 

2692 

+ 

DEFB 

02 OH 

0A77 

20 

2692 

4- 

DEFB 

02 OH 

0A78 

20 

2692 

+ 

DEFB 

020H 

0A79 

20 

2^,92 

4- 

DEFB 

02 OH 

0A7A 


2693 


DEFCHR 0F8H, 008H, 010H, 020H, 040H, 080H, 0F8H 

0A7A 

F8 

2693 

•4 

DEFB 

0F8H 

0A7B 

08 

2693 

4- 

DEFB 

008H 

0A7C 

10 

2693 

4- 

DEFB 

01 OH 

0A7D 

20 

2693 

4- 

DEFB 

020H 

0A7E 

40 

2693 

4- 

DEFB 

040 H 

0A7F 

80 

2693 

4- 

DEFB 

080H 

0A80 

F8 

2693 

4- 

DEFB 

0F8H 

0A81 


2694 


DEFCHR 070H, 040H, 040H, 040H, 040H, 040H, 070H 

0A81 

70 

2694 

4- 

DEFB 

070H 

0A82 

40 

2694 

4- 

DEFB 

04 OH 

0A83 

40 

2694 

+ 

DEFB 

04 OH 

0A84 

40 

2694 

4* 

DEFB 

04 OH 

0A85 

40 

2694 

4- 

DEFB 

04 OH 

0A86 

40 

2694 

4- 

DEFB 

04 OH 

0A87 

70 

2694 

4- 

DEFB 

07 OH 

OAb8 


2695 


DEFCHR 000H, 080H, 040H, 020H, 01 OH, 008H, 000H 

0A88 

00 

2695 

4- 

DEFB 

OOOH 

0A89 

80 

2695 

4- 

DEFB 

08 OH 

0A8A 

40 

2695 

4- 

DEFB 

04 OH 

0A8B 

20 

2695 

4- 

DEFB 

020 H 
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AD DR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 

0A8C 

10 

2695 


DEFB 

01 OH 

0A8D 

08 

2695 

+ 

DEFB 

00 8 H 

0A8E 

00 

2695 

+ 

DEFB 

OOOH 

UA8F 


2696 


DEFCHR 07 OH, 010H, 010H, 010H, 010H, 010H, 070H ; 

0A8F 

70 

2696 

4- 

DEFB 

070H 

0A90 

10 

2696 

4- 

DEFB 

01 OH 

0A9 1 

10 

2696 

4- 

DEFB 

01 OH 

0A92 

10 

2696 

•4 

DEFB 

01 OH 

0A93 

10 

2696 

4- 

DEFB 

01 OH 

0A94 

10 

2696 

4- 

DEFB 

01 OH 

0A95 

70 

2696 

4- 

DEFB 

07 OH 

0A96 


2697 


DEFCHR 020H, 070H, 0A8H, 020H, 020H, 020H, 020H ; 

0A96 

20 

2697 

+ 

DEFB 

020H 

0A97 

70 

2697 

4- 

DEFB 

07 OH 

0A98 

A 8 

2697 

4- 

DEFB 

0A8H 

0A99 

20 

2697 

4- 

DEFB 

02 OH 

0A9A 

20 

2697 

4* 

DEFB 

02 OH 

0A9B 

20 

2697 

4- 

DEFB 

02 OH 

0A9C 

20 

2697 

4- 

DEFB 

02 OH 

0A9D 


2698 


DEFCHR 00 OH, 020H, 040H, 0F8H, 040H, 020H, OOOH ; 

0A9D 

00 

2698 

4- 

DEFB 

OOOH 

0A9E 

20 

2698 

4- 

DEFB 

02 OH 

0A9F 

40 

2698 

4- 

DEFB 

04 OH 

OAAO 

F8 

2698 

4- 

DEFB 

0F8H 

OAA'l 

40 

2698 

4- 

DEFB 

04 OH 

0AA2 

20 

2698 

4- 

DEFB 

02 OH 

0AA3 

00 

2698 

4- 

DEFB 

OOOH 

0AA4 


2699 


DEFCHR 020H, 020H, 020H, 020H, 0A8H, 070H, 020H , 

0AA4 

20 

2699 

4- 

DEFB 

02 OH 

0AA5 

20 

2699 

4- 

DEFB 

020H 

0AA6 

20 

2699 

4- 

DEFB 

02 OH 

0AA7 

20 

2699 

+ 

DEFB 

02 OH 

0AA8 

A 8 

2699 

4- 

DEFB 

0A8H 

0AA9 

70 

2699 

4- 

DEFB 

07 OH 

OAAA 

20 

2699 

4- 

DEFB 

02 OH 

OAAB 


2700 


DEFCHR OOOH, 020H, 01 OH, 0F8H, 01 OH, 020H, OOOH ; 

OAAB 

00 

2700 

4- 

DEFB 

OOOH 

OAAC 

20 

2700 

+ 

DEFB 

02 OH 

OAAD 

10 

2700 

4- 

DEFB 

01 OH 

UAAE 

F8 

2700 

4- 

DEFB 

0F8H 

OAAF 

10 

2700 

4- 

DEFB 

01 OH 

OABO 

20 

2700 

4- 

DEFB 

02 OH 

OAB1 

00 

2700 

4- 

DEFB 

OOOH 

0AB2 


2701 


DEFCHR OOOH, 088H, 050H, 020H, 050H, 088H, OOOH ; 

0AB2 

00 

2701 

4- 

DEFB 

OOOH 

0AB3 

oo 

2701 

4- 

DEFB 

088H 

0AB4 

50 

2701 

4- 

DEFB 

05 OH 

0AB5 

20 

270 1 

4- 

DEFB 

020H 

0AB6 

50 

2701 

4- 

DEFB 

050H 

0AB7 

C; O 

2701 

4- 

DEFB 

088H 

0AB8 

00 

2701 

4- 

DEFB 

OOOH 

0AB9 

00 

2702 


DEFB 

0 

OABA 

20 

2703 


DEFB 

2 OH 

OABB 

00 

2704 


DEFB 

0 

OABC 

F8 

2705 


DEFB 

0F8H 

OABD 

00 

2706 


DEFB 

0 

OAE'E 

20 

2707 


DEFB 

20H 


: 


DOWN 


RIGHT 


MULTI 



*MODCOMP Z— 80 
ADDR OBJECT 


OAEF 
OABF 
OABF 00 
OACO 00 
OAC 1 00 
0AC2 00 
0AC3 00 


0AC4 DDE 1 

0AC6 E3 
0AC7 DDE 9 


0AC9 
0AC9 48 
OACA 0600 
OACC 21D50A 
OACF 09 
OADO 7E 
0AD1 FD7709 
0AD4 C9 

0AD5 
0AD5 20 
0AD6 43 
0AD7 5E 
0AD8 5C 
0AD9 25 
OADA 52 
OADB 53 
OADC 3B 
OADD 2F 
OADE 37 
OADF 38 
OAEO 39 
OAE 1 2A 
0AE2 34 
0AE3 35 
0AE4 36 
0AE5 2D 
0AE6 31 
0AE7 32 
0AE8 33 
OAE 9 2B 
OAEA 26 
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STMT LABEL OPCD OPERAND COMMENT 

2708 ; ** LAST BYTE OF DIVIDE IS ZERO, WHICH HAPPENS TO BE FIR 

2709 i BYTE OF . . . 

2710 ; SMALL CHARACTERS (4X6) 

2711 SMLCHR 


2712 


DEF5 

OOOH, OOOH, OOOH, OOOH, OOOH 

2712 

+ 

DEFB 

OOOH 

2712 

+ 

DEFB 

OOOH 

2712 

+ 

DEFB 

OOOH 

2712 

+ 

DEFB 

OOOH 

2712 

+ 

DEFB 

OOOH 


2714 

MM JUMP: POP 

IX 

2715 

EX 

<SP), HL 

2716 

JP 

(IX) 


2718 

NAME: CONVERT KEY CODE TO ASCII 

2719 

PURPOSE: SAME 


2720 

INPUT: A=KEY CODE 


2721 

OUTPUT: A=ASC I I EQUIVALENT 

2722 

HOW. TABLE LOOKUP 


2723 MKCTAS: 


2724 

LD C, B 


2725 

LD B, 0 


2726 

LD HL, KCTATB 


2727 

ADD HL, BC 


2728 

LD A, (HL) 


2729 QFROG: LD (IY+CBA),A 


2730 

RET 


2732 KCTATB: 


2733 

DEFB ' ' 

SPACE 

2734 

DEFB 'C' 

BULLET 

2735 

DEFB 5EH 

UP ARROW 

2736 

DEFB 5CH 

DOWN ARROW 

2737 

DEFB '%' 


2738 

DEFB 'R' 

RECALL 

2739 

DEFB 'S' 

STORE 

2740 

DEFB '; ' 

PLUS-MINUS 

2741 

DEFB '/' 

DIVIDE 

2742 

DEFB '7' 


2743 

DEFB '8' 


2744 

DEFB '9' 


2745 

DEFB '*' 

TIMES 

2746 

DEFB '4' 


2747 

DEFB '5' 


2748 

DEFB '6' 


2749 

DEFB '-' 

MINUS 

2750 

DEFB '1' 


2751 

DEFB '2' 


2752 

DEFB '3' 


2753 

DEFB '+' 

PLUS 

2754 

DEFB '&' 

CE 
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AD DR OBJECT STMT 
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OAEB 30 2755 
OAEC 2E 2756 
OAED 3D 2757 


DEFB '0' 
DEFB - 
DEFB ' = ' 

; POINT 
i EQUALS 





2759 

; NAME: 

FILL AREA 




2760 

; PURPOSE : 

SET REGION OF SCREEN TO 

CONSTANT VALUE 



2761 

; INPUT: 

A = DATA TO FILL WITH 




2762 

i 

BC = NUMBER OF BYTES TO 

FILL 



2763 

i 

DE = STARTING ADDRESS OF 

REGION TO FILL 

OAEE 

EB 

2764 

MF ILL : EX 

DE, HL 


OAEF 

77 

2765 

MFILL1 : LD 

( HL ) , A i STUFF BYTE 


OAFO 

EDA 1 

2766 

CPI 

; BUMP HL, DEC 

BC 

0AF2 

EAEFOA 

2767 

JP 

PE, MFILL1 


OAFS 

C9 

2768 

RET 






2770 



NAME: 

RELATIVE TO ABSOLUTE 



2771 



PURPOSE : 

COORDINATE CONVERSION 



2772 



I NF'UT : 

E = X COORDINATE 



2773 




D = Y COORDINATE 



2774 




A = MAGIC REGISTER VALUE TO USE 



2775 



OUTPUT: 

DE = ABSOLUTE ADDRESS 



2776 




A = MAGIC REGISTER TO USE 



2777 


; 

MAGIC ENTRY POINT 

0AF6 

CD080B 

2778 


MRELAB: CALL 

RELTA 

OAF 9 

1805 

2779 



JR 

MRELA2-* 



2780 


i 

NONMAGIC ENTRY POINT 

OAFB 

CD4E0B 

2781 


MRELAl : CALL 

RELTA1 

OAFE 

CBF2 

2782 



SET 

6, D ; NONMAGIC THE ADDRESS 

OBOO 

FD7304 

2783 


MRELA2: LD 

( I Y+CBE ) , E ; UPDATE CB DE 

0B03 

FD7205 

2784 



LD 

< I Y+CBD ) , D 

0B06 

1 8C9 

2785 


MFROG : JR 

QFROG— $ 



2786 


t 

MAGIC ENTRY POINT 

OBOEi 

CD4E0B 

2787 


RELTA: CALL 

RELTA 1 

OBOB 

D30C 

2788 



OUT 

(MAGIC), A 

OBOD 

C9 

2789 



RET 


OBOE 

00 

2790 


Cl 

(SUM 2 : DEFB 

0 » *** CHECKSUM *** 

OBOF 


2791 



DEF5 

OEOH, OAOH, OAOH, OAOH, OEOH ; 0 

OBOF 

EO 

2791 

+ 


DEFB 

OEOH 

OB 10 

AO 

2791 

+ 


DEFB 

OAOH 

OBI 1 

AO 

2791 

+ 


DEFB 

OAOH 

OB 12 

AO 

2791 

+ 


DEFB 

OAOH 

OB 13 

EO 

2791 

+ 


DEFB 

OEOH 

OB 14 


2792 



DEF5 

040H, 040H, 040H, 040H, 040H ; 1 

OB 14 

40 

2792 

+ 


DEFB 

040H 

OB 15 

40 

2792 

+ 


DEFB 

040H 

OB 16 

40 

2792 

+ 


DEFB 

040H 

OB 17 

40 

2792 

+ 


DEFB 

040H 

OB 1 8 

40 

2792 

+ 


DEFB 

040H 

OB 19 


2793 



DEF5 

OEOH, 020H, OEOH, 080H, OEOH ; 2 

OB 1 9 

EO 

2793 

+ 


DEFB 

OEOH 

OBI A 

20 

2793 

+ 


DEFB 

020H 

OB IB 

EO 

2793 

+ 


DEFB 

OEOH 

OB 1C 

80 

2793 

4 - 


DEFB 

080H 



PAGE 69 


♦MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT LABEL 

OPCD 

OPERAND COMMENT 


OB ID 

EO 

2793 + 

DEFB 

OEOH 


OB IE 


2794 

DEF5 

OEOH, 020H. 060H, 020H, OEOH ; 

3 

OB IE 

EO 

2794 + 

DEFB 

OEOH 


OB IF 

20 

2794 + 

DEFB 

020H 


0B20 

60 

2794 + 

DEFB 

060H 


0B21 

20 

2794 + 

DEFB 

020H 


0B22 

EO 

2794 + 

DEFB 

OEOH 


0B23 


2795 

DEF5 

OAOH, OAOH, OEOH, 020H, 020H ; 

4 

0B23 

AO 

2795 + 

DEFB 

OAOH 


0B24 

AO 

2795 + 

DEFB 

OAOH 


0B25 

EO 

2795 + 

DEFB 

OEOH 


OB 2 6 

20 

2795 + 

DEFB 

020H 


0B27 

20 

2795 + 

DEFB 

020H 


0B28 


2796 

DEF5 

OEOH, 080H, OEOH, 020H, OEOH ; 

5 

0B28 

EO 

2796 + 

DEFB 

OEOH 


0B29 

80 

2796 + 

DEFB 

080H 


0B2A 

EO 

2796 + 

DEFB 

OEOH 


0B2B 

20 

2796 + 

DEFB 

020H 


0B2C 

EO 

2796 + 

DEFB 

OEOH 


0B2D 


2797 

DEF5 

OEOH, 080H, OEOH, OAOH, OEOH ; 

6 

0B2D 

EO 

2797 + 

DEFB 

OEOH 


0B2E 

80 

2797 + 

DEFB 

080H 


0B2F 

EO 

2797 + 

DEFB 

OEOH 


0B30 

AO 

2797 + 

DEFB 

OAOH 


0B31 

EO 

2797 + 

DEFB 

OEOH 


0B32 


2798 

DEF5 

OEOH, 020H, 020H, 020H, 020H ; 

7 

0B32 

EO 

2798 + 

DEFB 

OEOH 


OB 33 

20 

2798 + 

DEFB 

020H 


0B34 

20 

2798 + 

DEFB 

020H 


0B35 

20 

2798 + 

DEFB 

020H 


OB 3 6 

20 

2798 + 

DEFB 

020H 


0B37 


2799 

DEF5 

OEOH, OAOH, OEOH, OAOH, OEOH ; 

8 

0B37 

EO 

2799 + 

DEFB 

OEOH 


0B38 

AO 

2799 + 

DEFB 

OAOH 


0B39 

EO 

2799 + 

DEFB 

OEOH 


0B3A 

AO 

2799 + 

DEFB 

OAOH 


0B3B 

EO 

2799 + 

DEFB 

OEOH 


0B3C 


2800 

DEF5 

OEOH, OAOH, OEOH, 020H, OEOH ; 

9 

0B3C 

EO 

2800 + 

DEFB 

OEOH 


0B3D 

AO 

2800 + 

DEFB 

OAOH 


0B3E 

EO 

2800 + 

DEFB 

OEOH 


0B3F 

20 

2800 + 

DEFB 

020H 


0B40 

EO 

2800 + 

DEFB 

OEOH 


0B4 1 


2801 

DEF5 

OOOH, 040H, OOOH, 040H, OOOH ; 


0B4 1 

00 

2801 + 

DEFB 

OOOH 


0B42 

40 

2801 + 

DEFB 

040H 


0B43 

00 

2801 + 

DEFB 

OOOH 


0B44 

40 

2801 + 

DEFB 

040H 


0B45 

00 

2801 + 

DEFB 

OOOH 


0B46 


2802 

DEF5 

040H, OEOH, OEOH, OEOH, OEOH ; 

BULLET 

0B46 

40 

2802 + 

DEFB 

040H 


0B47 

EO 

2802 + 

DEFB 

OEOH 


0B48 

EO 

2802 + 

DEFB 

OEOH 


0B49 

EO 

2802 + 

DEFB 

OEOH 


0B4A 

EO 

2802 + 

DEFB 

OEOH 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND 

COMMENT 



2804 

; MOVE 

ROUTINE 


0B4B 

EDBO 

2805 

MMOVE: 

LDIR 


0B4D 

C9 

2806 


RET 





2808 

; SYSTEM ENTRY POINT 

FOR 

NONMAGIC ADDRESSES 

0B4E 

E5 

2809 

RELTA1 : 

PUSH 

HL 




0B4F 

E6FC 

281 0 


AND 

OFCH 


i 

TOSS OUT SHIFT AMOUNT 

0B51 

6F 

281 1 


LD 

L, A 


i 

SAVE 

0B52 

7B 

2812 


LD 

A, E 


i 

GET X 

0B53 

E603 

2813 


AND 

OSH 


i 

ISOLATE SHIFT AMOUNT 

0B55 

B5 

2814 


OR 

L 


i 

COMBINE WITH MR 

OB 56 

F5 

28 1 5 

RELTA2: 

PUSH 

AF 




0E57 

E640 

28 1 6 


AND 

040H 


i 

IS FLOPPED BIT SET? 

OB 59 

7B 

2817 


LD 

A, E 




0B5A 

2803 

28 1 8 


JR 

Z, RELTA3 

-* 

i 

JUMP IF NOT 

0B5C 

2F 

2819 


CPL 



i 

YEP - UNFLOP THE COORDINATE 

0B5D 

C6A0 

2820 


ADD 

A, 160 




0B5F 

6 A 

2821 

RELTA3: 

LD 

L, D 


i 

HL = Y 

0B60 

2600 

2822 


LD 

H, 0 




0B62 

29 

2823 


ADD 

HL, HL 


i 

SET HL = Y * 8 

OB 63 

29 

2824 


ADD 

HL, HL 




OE'64 

29 

2825 


ADD 

HL, HL 




0B65 

54 

2826 


LD 

D, H 




OB 66 

5D 

2827 


LD 

E, L 




0B67 

29 

2828 


ADD 

HL, HL 


i 

SET HL = Y * 32 

OB 68 

29 

2829 


ADD 

HL, HL 




0B69 

19 

2830 


ADD 

HL, DE 


i 

SET HL = Y * 40 

OB 6 A 

CB3F 

2831 


SRL 

A 


i 

A = X 4 

0B6C 

CB3F 

2832 


SRL 

A 




0B6E 

5F 

2833 


LD 

E, A 




0B6F 

1 600 

2834 


LD 

D, 0 




0B7 1 

19 

2835 


ADD 

HL, DE 


i 

HL = Y * 40 + X 4 



2836 


IF 

NWHDWR-1 






2837 


END IF 




0E72 

EB 

2838 


EX 

DE, HL 





0B73 

FI 

2840 

2841 

2842 

2843 

; NAME: 

; PURPOSE : 

; THIS CODE WAS 
; IT DOES THE S' 
MMRET : POP AF 

RETURN FROM MACRO SUBROUTINE 
RETURN CONTROL TO CALLER 
•'STOLEN" FROM RELABS SINCE 
TACK CLEANUP THAT MRET DOES 

0B74 

El 

2845 

POP 

HL 


0B75 

C9 

2846 

RET 






2848 

; ENTRY FOR 

USER 

0B76 

CD7B0B 

2849 

INXNIB: CALL 

XNIB 

0B79 

1 88B 

2850 

JR 

MFROi 
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ADDR 

OBJECT 

STMT 

LABEL OPCD 

OPERAND COMMENT 



2852 

; NAME: 

INDEX NIBBLE 



2853 

; PURPOSE : 

LOAD OF SPECIFIED NIBBLE RELATIVE TO BASE 



2854 

; INPUT: 

C = NIBBLE NUMBER 



2855 

i 

HL = BASE ADDRESS 



2856 

i OUTPUT. 

NIBBLE RETURNED RIGHT JUSTIFIED IN A. 



2857 

; DESCRIPTION: BYTE = NIBBLE# 2+BASE 



2858 

; THE LOW ORDER NIBBLE OF A GIVEN BYTE IS ADDRESSED 



2859 

; BY AN EVEN 

NIBBLE NUMBER. 

0B7B 

E5 

2860 

XNIB: PUSH 

HL 

0B7C 

C5 

2861 

PUSH 

BC 

0B7D 

0600 

2862 

LD 

B, 0 

0B7F 

CBS 9 

2863 

SRL 

C 

0B8 1 

09 

2864 

ADD 

HL, BC 

0B82 

7E 

2865 

LD 

A, (HL) 

0B83 

Cl 

2866 

POP 

BC 

0B84 

CB4 1 

2867 

BIT 

0, C 

0B86 

2804 

2868 

JR 

Z, XNIB1-* 

0B88 

OF 

2869 

RRCA 


0B89 

OF 

2870 

RRCA 


0B8A 

OF 

2871 

RRCA 


0B8B 

OF 

2872 

RRCA 


0B8C 

E60F 

2873 

XNIB1: AND 

OFH 

0B8E 

El 

2874 

POP 

HL 

0B8F 

C9 

2875 

RET 





2877 

i NAME: 


STORE NIBBLE 



2878 

; PURPOSE : 

NIBBLE STORING ( ! ) 



2879 

; INPUT 


A = NIBBLE TO STORE 



2880 

i 


C = NIBBLE NUMBER (AS IN XNIB) 



2881 

i 

HL = 

BASE ADDRESS 

0B90 

E5 

2882 

PUTNIB: 

PUSH 

HL 

0B91 

C5 

2883 


PUSH 

BC 

0B92 

0600 

2884 


LD 

B, 0 

0B94 

CB39 

2885 


SRL 

C 

0B96 

09 

2886 


ADD 

HL, BC 

0B97 

Cl 

2887 


POP 

BC 

0B9S 

CB4 1 

2888 


BIT 

0, C 

0B9A 

2809 

2889 


JR 

Z, PUTNB1-* 



2890 

; H. 0. 

CASE 

- SHIFT IT 

0B9C 

07 

2891 


RLCA 


0B9D 

07 

2892 


RLCA 


0B9E 

07 

2893 


RLCA 


0B9F 

07 

2894 


RLCA 


OBAO 

AE 

2895 


XOR 

(HL) 

0BA1 

E6F0 

2896 


AND 

OFOH 

0BA3 

1803 

2897 


JR 

PUTNB2-* 

0BA5 

AE 

2898 

F'UTNBl : 

XOR 

(HL) ; L. 0. CASE 

0BA6 

E60F 

2899 


AND 

OFH 

0BA8 

AE 

2900 

PUTNB2: 

XOR 

(HL) 

0BA9 

77 

2901 


LD 

(HL), A 

OBAA 

El 

2902 


POP 

HL 

OBAB 

C9 

2903 


RET 
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ft DDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 



2905 

i NAME 

: INDEX WORD TABLE (WORD INDEX) 



2906 

; PURPOSE: TO INDEX AN ARRAY OF DEFW S 



2907 

; INPUTS: A= 

INDEX NUMBER (0-255) 



2908 

, HL -0 

TABLE ENTRY 0 



2909 

; OUTPUTS: 

DE = ENTRY LOOKED UP 



2910 

> 


HL = POINTER TO ENTRY IN TABLE 

OBAC 

5F 

2911 

MINDW: 

LD 

E, A 

OBAD 

1 600 

2912 


LD 

D, 0 

OBAF 

CB23 

2913 


SLA 

E 

OBB 1 

CB12 

2914 


RL 

D ; DE*2 

0BB3 

19 

2915 


ADD 

HL. DE 

0BB4 

5E 

2916 


LD 

E, (HL) 

0BB5 

2 

2917 


INC 

HL 

0BB6 

56 

2918 


LD 

D, (HL) 

OBB 7 

2B 

2919 


DEC 

HL 

OBB 8 

CDF40C 

2920 

STHLDE: 

CALL 

FINDL3 

OBBB 

1808 

2921 


JR 

MINDB1-* ; JOIN STORE IN INDEX BYTE 



2923 

; NAME: 


INDEX BYTE TABLE 



2924 

; PURPC 

SE: 

TABLE LOOKUP 



2925 

; INPUTS: 

A = INDEX NUMBER 



2926 

; OUTPUT: 

A = VALUE OF BYTE 



2927 

} 


HL = POINTER TO TABLE ENTRY 

OBBD 

5F 

2928 

MINDB: 

LD 

E, A 

OBBE 

1 600 

2929 


LD 

D, 0 

OBCO 

19 

2930 


ADD 

HL, DE 

OBC 1 

7E 

2931 


LD 

A, (HL) 

0BC2 

FD7709 

2932 


LD 

< IY+CBA), A 

0BC5 

FD740B 

2933 

MINDB1: 

LD 

< I Y+CBH) , H 

OBC 8 

FD750A 

2934 


LD 

( IY+CBL) , L 

OBCB 

C9 

2935 


RET 




2937 

J NAME. 

DISPLAY TIME 



2938 

; PURPO 

SE: DISPLAY TIME ON SCREEN 



2939 

; INPUT 

S: E 

= X COORD 



2940 

i 

D 

= Y COORD 



2941 

i 

C 

= SAME AS DISCHR OPTIONS EXCEPT BIT 7 = 1 



2942 

i 


TO DISPLAY COLON AND SECONDS 



2943 

i OUTPUTS: NONE 

OBCC 


2944 

MDISTI: 



OBCC 

DD210D02 

2945 


LD 

IX, SMLFNT 

OBDO 

0642 

2946 


LD 

B, 42H 

0BD2 

21EE4F 

2947 


LD 

HL. GTMINS 

0BD5 

C5 

2948 


PUSH 

BC 

0BD6 

FDCB06BE 

2949 


RES 

7, ( IY+CBC) 

OBDA 

CDEBOB 

2950 


CALL 

BCD ISP 

OBDD 

Cl 

2951 


POP 

BC 

OBDE 

CB79 

2952 


BIT 

7, C 

OBEO 

C8 

2953 


RET 

Z 

OBE 1 

3EBA 

2954 


LD 

A, 80H+3AH 
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ADDR OBJECT 

STMT 

LABEL OP CD OPERAND COMMENT 


0BE3 CDE107 

2955 

CALL DISPCH 


0BE6 0642 

2956 

LD B, 42H 


OBES 21ED4F 

2957 

LD HL, GTSECS 



2958 

; AND FALL INTO . . . 





2960 

NAME: 

DISPLAY BCD 

NUMBER- 



2961 

INPUT: 

B = NUMBER 

DISPLAY OPTIONS 



2962 


C = CHARACTER DISPLAY OPTIONS 



2963 


DE = Y, X COORDINATES 



2964 


HL = NUMBER 

ADDRESS (POINTS AT LO BYTE) 



2965 


IX = ALTERNATE FONT (IF USED) 



2966 

OUTPUT : 

DE UPDATED 




2967 

DESCRIPTION: THIS ROUTINE CONVERTS EACH NIBBLE INTO 



2968 

ASCII AND 

DISPLAYS IT. THE NORMALLY ILLEGAL BCD 



2969 

VALUES ARE 

DISPLAYED AS CODES 2A THRU 2F RESPECTIVELY. 



2970 

THE NUMBER 

DISPLAY OPTIONS BYTE IS FORMATED AS FOLLOWS 



2971 

BIT 7 

SET IF LEADING ZERO SURPRESSION WANTED 



2972 

BIT 6 

SET IF USE 

OF ALTERNATE FONT WANTED 



2973 

BITS 5-0 

NUMBER OF DIGITS TO DISPLAY (NOT NUMBER 

OBEB 

78 

2974 BCD ISP: LD 

A, E ; 

GET OPTIONS 

OBEC 

E63F 

2975 

AND 

3FH ; 

ISOLATE NUMBER OF DIGITS 

OBEE 

3D 

2976 BCD DO: DEC 

A 


OBEF 

F8 

2977 

RET 

M ; 

QUIT IF NULL OR NO MORE 

OBFO 

4F 

2978 

LD 

C, A ; 

SAVE 

DBF 1 

CD 7 BOB 

2979 

CALL 

XNIB ; 

GET NEXT DIGIT 

0BF4 

2007 

2980 

JR 

NZ, BCDD1— * ; 

JUMP IF NONZERO 

OBF 6 

CB78 

2981 

BIT 

7, B ; 

IS ZERO SURPRESS ON? 

DBF 8 

2803 

2982 

JR 

Z, BCDD1-* ; 

JUMP IF NOT 

OBF A 

B1 

2983 

OR 

C ; 

LAST DIGIT? 

OBFB 

2014 

2984 

JR 

NZ, BCDD4-* ; 

JUMP IF NOT 

OBFD 

CBB8 

2985 BCDD1: RES 

1 , B ; 

CLEAR LEADING ZERO FLAG 

OBFF 

C606 

2986 

ADD 

A, 6 


0C01 

E60F 

2987 

AND 

OFH 


0C03 

C62A 

2988 

ADD 

A, 2AH 


0C05 

CB70 

2989 BCDD2 : BIT 

6, B ; 

ALTERNATE FONT? 

0C07 

2802 

2990 

JR 

Z< BCDD3— $ ; 

JUMP IF NO 

0C09 

F 680 

299 1 

OR 

BOH ; 

YEA - SET THE BIT 

OCOB 

CDE107 

2992 BCDD3: CALL 

DISPCH ; 

DISPLAY THE CHAR 

OCOE 

79 

2993 

LD 

A, C ; 

GET LOOP COUNTER IN A 

OCOF 

1 8DD 

2994 

JR 

BCD DO- $ ; 

AND GO FOR NEXT 

0C1 1 

3E20 

2995 BCDD4 : LD 

A. '■ ' ; 

LEADING ZERO - WRITE A SPACE 

0C13 

18F0 

2996 

JR 

BCDD2-* 





2998 

; NAME: 

INCREMENT 

SCORE 




2 9 9 9 

; PURF'O 

SE: INCREMENT 

SCORE AND COMPARE 

TO END SCORE 



3000 

; I NPIJT 

S: HL -> PLAYER SCORE LOW ADDR 

OF 3 BYTES 



300 1 

; OUTPUTS: GSBEND OF 

GAMSTB SET IF MAX 

SCORE REACHED 

OC 1 5 

0603 

3002 

MINCSC: 

LD B, 3 



0C1 7 

E5 

3003 


PUSH HL 



OC 1 8 

7E 

3004 

I NCLOP : 

LD A, (HL) 



0C19 

C601 

3005 


ADD A, 1 



OC 1 B 

27 

3006 


DAA 



0C1C 

77 

3007 


LD ( HL ) , A 
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ADDR 

OBJECT 

STMT 

LABEL 

OF' CD 

OPERAND 

COMMENT 

OC 1 D 

2003 

3008 


JR 

NZ, CMP IT—* 


0C1F 

23 

3009 


INC: 

HL 


0C20 

1 OF 6 

3010 


DJNZ 

I NCLOP-* 


0C22 

El 

301 1 

CMP IT : 

POP 

HL 


0C23 

2’Z\ 

3012 


INC 

HL 


0C24 

23 

3013 


INC 

HL 


0C25 

3AF84F 

3014 


LD 

A, < GAMSTB) 


0C28 

CB4F 

3015 


BIT 

GSBSCRj A 


0C2A 

C8 

3016 


RET 

Z 


0C2B 

1 1F64F 

3017 


LD 

DE, ENDSCR+2 


0C2E 

0603 

3018 


LD 

E, 3 


OC 30 

1A 

30 1 9 

CMPLOP 

: LD 

A, <DE) 


0C31 

BE 

3020 


CP 

(HL) 


0C32 

2807 

302 1 


JR 

Z, REPEAT-* 

; ENDSCR = SCORE 

0C34 

DO 

3022 


RET 

NC 

> ENDSCR > SCORE 

0C35 

21F84F 

3023 

SETEND 

LD 

HL, GAMSTB 

i ENDSCR < SCORE 

0C38 

CBFE 

3024 


SET 

GSBEND, (HL) 


0C3A 

C9 

3025 


RET 



0C3B 

IB 

3026 

REPEAT 

DEC 

DE 


0C3C 

2B 

3027 


DEC 

HL 


0C3D 

1 OF 1 

3028 


DJNZ 

CMPLOP-* 


0C3F 

18F4 

3029 


JR 

SETEND-* 




3031 

i NAME 


QUIT 




3032 

; PURPOSE: 

HOLD F’RE 

SENT GAME SCORE UNTIL KEY 



3033 

; SAY 

3AME OVER 


0C4 1 


3034 

MQIJIT: 

SYSSUK STRDIS 


0C41 

FF 

3034 

+ 

RST 

56 


0C42 

35 

3034 

+ 

DEFB 

STRDIS+1 




3034 

+ 

IF 

STRDIS. EQ. INTF'C 



3034 

+ 

ENDIF 


0C43 

30 

3035 


DEFB 

48 


0C44 

18 

3036 


DEFB 

24 


0C45 

4C 

3037 


DEFB 

01001 100B 


0C46 

570C 

3038 


DEFW 

GMOVR 


0C48 


3039 


SYSTEM ACT I NT 

, ACTIVATE INTERRUPTS 

0C48 

FF 

3039 

+ 

RST 

56 


0C49 

OE 

3039 

+ 

DEFB 

ACT I NT 




3039 

+ 

IF 

ACT I NT. EQ. INTF'C 



3039 

+ 

ENDIF 


0C4A 


3040 

MQIJIT 1 

SYSSUK SENTRY 

; WAIT FOR SOMETHING TO 

0C4A 

FF 

3040 

+ 

RST 

56 


0C4B 

43 

3040 

+ 

DEFB 

SENTRY+1 




3040 

+ 

IF 

SENTRY. EQ. INTPC 



3040 

+ 

ENDIF 


0C4C 

1 402 

304 1 


DEFW 

AKEYS 


0C4E 

FE14 

3042 


CP 

STO 


0C50 

2804 

3043 


JR 

Z, MQUIT2-* 

; TRIGGER CHANGE? 

0C52 

FE13 

3044 


CP 

SKYD 

; KEY HIT? 

0C54 

20F4 

3045 


JR 

NZ, MQUIT1-* 

; NO - KEEP GOING 

0C56 

C7 

3046 

MQUIT2 

RST 

0 

; YES - RESET 

0C57 

47414D45 

3047 

GMOVR: 

DEFM 

"GAME" 


0C5B 

06 

3048 


DEFB 

6 


0C5C 

4F564552 

3049 


DEFM 

■-OVER'' 


0C60 

00 

3050 


DEFB 

0 



OR 
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ADDR OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 


3052 

; ***************** 



3053 

; * MENU ROUTINES * 



3054 

; ***********■*■«••**•«■* 


>0060 

3055 

NGLINE 

EQU 

96 

i NUMBER OF DISPLAYED LINES 

>0000 

,3056 

MNNL 

EQU 

0 

; NEXT FIELD 

>0001 

3057 

MNNH 

EQU 

1 


>0002 

3058 

MNSAL 

EQU 

2 

; STRING ADDRESS 

>0003 

3059 

MNSAH 

EQU 

3 


>0004 

3060 

MNGL 

EQU 

4 

; GO TO ADDRESS 

>0005 

3061 

MNGH 

EQU 

5 





3063 

; SYS 

TEM POWER UP ROUTINE 



0C6 1 

3A0020 

3064 

PWRUP 

LD 

A, (FIRSTC) 

GET FIRST CASSETTE 

LOCATION 

0C64 

FEC3 

3065 


CP 

0C3H ; 

IS IT A JUMP?? 


0C66 

CA0020 

306 6 


JP 

Z, FIRSTC ; 

JUMP TO IT IF SO 


0C69 

31CE4F 

3067 


LD 

SP, BEGRAM 



0C6C 


3068 


SYSSUK FILL ; 

CLEAR SYSTEM RAM 


0C6C 

FF 

3068 

+ 

RST 

56 



0C6D 

IB 

3068 

+ 

DEFB 

FILL+1 





3068 

+ 

IF 

FILL. EQ. I NTPC 





3068 

+ 

ENDIF 



0C6E 

CE4F 

3069 


DEFW 

BEGRAM 



0C70 

3200 

3070 


DEFW 

50 



0C72 

00 

3071 


DEFB 

0 



0C73 

32FF0F 

3072 


LD 

< WASTE ) > A ; 

CLEAR SHIFTER 


0C76 

3D 

3073 


DEC 

A 



0C77 

32EC4F 

3074 


LD 

( T I MOUT ) > A ; 

CLEAR TIMEOUT WATCHDOG 

0C7A 


3075 


SYSTEM I NTPC 



0C7A 

FF 

3075 

+ 

RST 

56 



0C7B 

00 

3075 

+ 

DEFB 

INTPC 





3075 

+ 

IF 

INTPC. EQ. INTPC 



>0001 


3075 

+INTP0 

DEFL 

1 





3075 

+ 

ENDIF 



0C7C 


3076 


DO 

EMUSIC 



0C7C 

15 

3076 

+ 

DEFB 

EMUSIC+1 



0C7D 


3077 


DO 

SETOUT 



0C7D 

17 

3077 

+ 

DEFB 

SETOUT+1 



0C7E 

BF 

3078 


DEFB 

(N0LINE*2)-1 



0C7F 

29 

3079 


DEFB 

41 



0C80 

08 

3080 


DEFB 

8 



0C81 


3081 


DO 

COLSET 



0C81 

19 

3081 

+ 

DEFB 

COLSET+1 



0C82 

1300 

3082 


DEFW 

MENUCL 



0C84 


3083 


DO 

ACT I NT 



0C84 

OF 

3083 

+ 

DEFB 

ACT I NT + 1 



0C85 


3084 


EXIT 




0C85 

02 

3084 

+ 

DEFB 

XINTC 



>0000 


3084 

+INTP0 

DEFL 

0 



0C86 

1 1F30D 

3085 


LD 

DE, GAMSTR ; 

'SELECT GAME' AS TITLE 

0C89 

210020 

3086 


LD 

HL, FIRSTC > 

ASSUME MENU STARTS 

IN CASSE 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

0C8C 

7E 

3087 


LD A, (HL) 

GET FIRST CASSETTE BYTE 

0C8D 

23 

3088 


INC HL 


0C8E 

FE55 

3089 


CP 55H 

IS SENTINEL THERE? 

0C90 

2803 

3090 


JR Zi PWRUP1-* 

YEP - JUMP 

0C92 

211802 

309 1 


LD HL, GLINLNK 

WRONG - USE ONBOARD ONLY 

0C95 


3092 

PWRUP1: 

SYSTEM MENU 

DISPLAY THE MENU 

0C95 

FF 

3092 

+ 

RST 56 


0C96 

4A 

3092 

+ 

DEFB MENU 




3092 

+ 

IF MENU. EQ. I NTPC 




3092 

+ 

END IF 




3094 

; NAME: 

DISPLAY MENU AND BRANCH ON CHOICE 



3095 

; INPUT 

HL = MENU 

LIST 



3096 

) 

DE = MENU 

TITLE 



3097 

; OUTPUT: DE = TITLE 

OF SELECTION MADE 



3098 

; DESCRIPTION: 




3099 


THE MENU LIST IS A 

LINKED LIST OF THE FOLLOWING F 



3 1 00 




3101 

; * 0 * 

NEXT ENTRY 




3102 

; * 1 * 


* 



3103 

j tt*#**##*******##**-*#--*#*--*# 



3104 

j # 2 * 

STRING ADDRESS 

#- 



3105 

; * 3 * 


* 



3106 

i tf#*##*##**####*##*-#-*-*-**#-* 



3107 

; * 4 * 

BRANCH TO ADDRESS 

* 



3 1 08 

i * 5 * 





3 1 09 

i *************************** 



31 10 

i THIS LIST IS TERMINATED BY A NEXT ENTRY FIELD OF ZEROS 



3111 

; A MAXIMUM OF EIGHT ENTRYS MAY BE DISPLAYED. 

0C97 

E5 

3112 

MMENU: 

PUSH HL 


0C98 

E5 

3113 


PUSH HL 


0C99 

CD190D 

3114 


CALL MNCLR 

CLEAR SCREEN AND THROWUP TITL 

0C9C 


3115 


XYRELL DE, 16, 12 


0C9C 

1 1 100C 

31 15 

+ 

LD DE, . RES. (12). SHL. 8+( 16) 

0C9F 

010901 

3116 


LD BC, 1 09H 

INITIALIZE ENTRY # AND COLOR 

0CA2 

DDE1 

3117 

MMENU 1: 

POP I X 

FIRST ENTRY TO IX 

OCA 4 

78 

3118 


LD A, B 

SELECTION NUMBER TO A 

OCAS 

C630 

3119 


ADD A, ' 0 ' 

MAKE IT ASCII 

0CA7 


3120 


SYSTEM CHRDIS 

AND SHOW IT 

0CA7 

FF 

3120 

+ 

RST 56 


OCAS 

32 

3120 

+ 

DEFB CHRDIS 




3120 

+ 

IF CHRDIS. EQ. I NTPC 



3120 

+ 

END IF 


OCA 9 

3E2D 

3121 


LD A, 

DISPLAY DASH 

OCAB 


3122 


SYSTEM CHRDIS 


OCAB 

FF 

3122 

+ 

RST 56 


OCAC 

32 

3122 

+ 

DEFB CHRDIS 




3122 

+ 

IF CHRDIS. EQ. I NTPC 



3122 

+ 

END IF 


OCAD 

DD6603 

3123 


LD H, ( I X+MNSAH) 

HL = STRING ADDRESS 

OCBO 

DD6E02 

3124 


LD L, ( I X+MNSAL ) 


0CB3 


3125 


SYSTEM STRDIS 

DISPLAY SELECTION 

0CB3 

FF 

3125 

+ 

RST 56 


0CB4 

34 

3125 

+ 

DEFB STRDIS 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 



3125 

+ 

END IF 


0CB5 

3E08 

3126 


LD 

A, 8 


0CB7 

82 

3127 


ADD 

A, D 

TO NEXT LINE 

0CB8 

57 

3128 


LD 

D, A 


0CB9 

IE 10 

3129 


LD 

E, 16 


OCBB 

04 

3130 


INC 

B 

BUMP ENTRY # 

OCBC 

DD660 1 

3131 


LD 

H, < IX+MNNH) 

HL = NEXT ENTRY ADDR 

OCBF 

DD6E00 

3132 


LD 

L, ( IX+MNNL) 


0 CC 2 

E5 

3133 


PUSH 

HL 


0CC3 

7C 

3134 


LD 

A, H 


0CC4 

B5 

3135 


OR 

L 


0CC5 

20DB 

3136 


JR 

NZ, MMENIJl-$ 

NO - JUMP BACK 



3137 

; AT THI 

S POINT HL = 0, (SP) = 0 

0CC7 

39 

3 1 38 


ADD 

HL, SP 

HL = STACK POINTER 

0 CC 8 

C5 

3139 

MMENU3: 

PUSH 

BC 


0CC9 

010101 

3140 


LD 

BC, 0101H 


OCCC 


3141 


XYRELL DE, 16, 77 

FEEDBACK ADDRESS 

OCCC 

1 1 104D 

3141 

+ 

LD 

DE, . RES. < 77 ) . 

3HL. 8 + (16) 

OCCF 


3142 


SYSTEM GETNUM 

GET NIJMBA 

OCCF 

FF 

3142 

+ 

RST 

56 


OCDO 

4E 

3142 

+ 

DEFB 

GETNUM 




3142 

+ 

IF 

GETNUM. EQ. I NTPC 



3142 

+ 

END IF 


OCD 1 

Cl 

3143 


POP 

BC 


0 CD 2 

IE 

3144 


LD 

A, (HL) 

HOW DOES SHE LOOK? 

0CD3 

A7 

3145 


AND 

A 

ZERO ENTERED? 

0CD4 

2803 

3146 


JR 

Z, MMENU5-* 

JUMP IF SO 

0CD6 

B 8 

3147 


CP 

B 

IN RANGE? 

GCD7 

3806 

3148 


JR 

C, MMENU 6 -* 

JUMP IF SO 

0CD9 

3E3F 

3149 

MMENU5 : 

LD 

A, 

DUD ENTRY - SHOW ? 

OCDB 


3 1 50 


SYSTEM CHRDIS 


OCDB 

FF 

3150 

+ 

RST 

56 


OCDC 

32 

3150 

+ 

DEFB 

CHRDIS 




3 1 50 


IF 

CHRDIS. EQ. I NTPC 



3150 

+ 

END IF 


OCDD 

18E9 

3151 


JR 

MMENU3-$ 

GO BACK FOR NEXT TRY 

OCDF 

El 

3152 

MMENIJ 6 : 

POP 

HL 

THROW OUT ENTRY AREA 

OCEO 

D 1 

3153 


POP 

DE 

RESTORE HEAD OF MENU LIST 

OCE 1 

47 

3154 


LD 

B, A 

NUMBER ENTERED TO B 

0CE2 

EB 

3155 

MMENU7: 

EX 

DE, HL 

HL = ENTRY PTR 

0CE3 

5E 

3156 


LD 

E, (HL) 

DE = NEXT 

0CE4 

23 

3157 


INC 

HL 


0CE5 

56 

3158 


LD 

D, (HL) 


0CE6 

10 FA 

3 1 59 


DJNZ 

MMEN!J7-$ 

COUNT DOWN TO ENTRY 

0CE8 

23 

3 1 60 


INC 

HL 


OCE 9 

5E 

3161 


LD 

E, (HL) 

STRING TO DE 

OCEA 

o 

3162 


INC 

HL 


OCEB 

56 

3163 


LD 

D, (HL) 


OCEC 

23 

3164 


INC 

HL 


OCED 

4E 

3165 


LD 

C, (HL) 

GO TO ADDRESS TO BC 

OCEE 

•73 

3166 


INC 

HL 


OCEF 

46 

3167 


LD 

B, (HL) 


OCFO 

El 

3168 


POP 

HL 

HL = RETURN TO PLACE 

OCF 1 

FI 

3169 


POP 

AF 

THROW OUT OLD PC 

0CF2 

C5 

3170 


PUSH 

BC 

PUT NEW PC ON STACK 

0CF3 

E5 

3171 


PUSH 

HL 

AND PUT BACK DUMMY RETURN 

0CF4 

FD7304 

3172 

FINDL3: 

LD 

( IY+CBE), E 

PASS BACK TITLE ADDRESS 
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AD DR 

OBJECT 

STMT LABEL 

OPCD 

OPERAND 

COMMENT 

0CF7 

OCFA 

FD7205 

C9 

3173 

3174 

LD 

RET 

< I Y+CBD ) , D 

; AND GO BACK 




3176 

i 

NAME: GET PARAMETER 



3177 

j 

PURPOSE: INPUT OF PROGRAM OPTIONS 



3178 

t 

INPUT: A = NUMBER OF DIGITS 



3179 

i 

BC = PROMPT STRING ADDRESS 



3 1 80 

/ 

DE = FRAME TITLE ADDRESS 



3181 

j 

HL = PARAMETER ADDRESS 



3182 

i 

DESCRIPTION: 



3183 


THIS ROUTINE ASKS THE USER TO ENTER A NUMBER 



3184 

> 

FIRST A MENU FRAME IS CREATED, USING THE STRING 



3185 

; 

POINTED AT BY DE AS A TITLE. THE STRING ■'ENTER ' 



3 1 86 

j 

IS DISPLAYED, FOLLOWED BY THE PROMPT STRING. 



3187 

; 

GETNUM IS THEN CALLED TO INPUT THE NUMBER. FEEDBACK 



3188 

; 

IS PROVIDED IN DOUBLE SIZED CHARACTERS. 



3189 

i 

NOTE: ** THIS ROUTINE USES TWO SYSTEM LEVELS AND THE 

OCFB 

F5 

3 1 90 

MGETP: PUSH AF ; SAVE NUMBER OF DIGITS 

OCFC 

E5 

3191 


PUSH HL 

OCFD 

C5 

3 1 92 


PUSH BC 

OCFE 

CD 1 90 D 

3193 


CALL MNCLR 

ODO 1 


3194 


SYSSUK STRDIS ; DISPLAY 'ENTER-' 

ODOl 

FF 

3194 

+ 

RST 56 

ODO 2 

35 

3194 

+ 

DEFB STRDIS+1 



3194 

+ 

IF STRDIS. EQ. I NTPC 



3194 

+ 

END IF 

0D03 

08 

3195 


DEFB 8 

ODO 4 

20 

3196 


DEFB 32 

0D05 

09 

3197 


DEFB 100 IB 

ODO 6 

B70D 

3198 


DEFW ENTSTG 

0D08 

El 

3 1 99 


POP HL 

ODO 9 


3200 


SYSTEM STRDIS ; DISPLAY WHAT TO ENTER 

ODO 9 

FF 

3200 

+ 

RST 56 

ODO A 

34 

3200 

+ 

DEFB STRDIS 



3200 

+ 

IF STRDIS. EQ. I NTPC 



3200 

+ 

END IF 

ODOB 

El 

3201 


POP HL 

ODOC 

FI 

3202 


POP AF 

ODOD 

47 

3203 


LD B, A 

ODOE 

CBF 1 

3204 


SET 6, C ; SET LARGE CHARS 

OD 1 0 


3205 


XYRELL DE, 48, 48 ; LOAD FEEDBACK ADDRESS 

ODIO 

1 13030 

3205 

+ 

LD DE, . RES. (48). SHL. 8+ (48) 

OD 1 3 


3206 


SYSTEM GETNUM ; GET NUMBER 

OD 1 3 

FF 

3206 

+ 

RST 56 

OD 1 4 

4E 

3206 

+ 

DEFB GETNUM 



3206 

+ 

IF GETNUM. EQ. I NTPC 



3206 

+ 

END IF 

OD 1 5 


3207 


SYSSUK PAWS ; LET USER READ IT 

OD 1 5 

FF 

3207 

+ 

RST 56 

0D16 

51 

3207 

+ 

DEFB PAWS+1 



3207 

+ 

IF PAWS. EQ. I NTPC 



3207 

+ 

END IF 

0D17 

OF 

3208 


DEFB 15 

OD 1 8 

C9 

3209 


RET 



3210 


SUBROUTINE TO CLEAR SCREEN FOR MENU AND THROWUP TITL 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 


0D19 

05 

321 1 

MNCLR : 

PUSH DE 


OD 1 A 


3212 


SYSSUK FILL 


GDI A 

FF 

3212 

+ 

RST 56 


00 IB 

IB 

3212 

+ 

DEFB FILL+1 




3212 

+ 

IF FILL. EQ. I NTPC 




3212 

+ 

END IF 


OD 1 C 

0040 

32 1 3 


DEFW NORMEM 


0D1E 

B801 

3214 


DEFW 11*BYTEPL 


0020 

00 

3215 


DEFB 0 


002 1 


3216 


SYSSUK FILL 


0021 

FF 

3216 

+ 

RST 56 


0022 

IB 

3216 

+ 

DEFB FILL+1 




3216 

+ 

IF FILL. EQ. I NTPC 




3216 

+ 

END IF 


0023 

B841 

32 1 7 


DEFW NORMEM+ < 1 1 *BYTEPL ) 


0025 

4800 

3218 


DEFW ( NOLINE-1 1)*BYTEPL 


0027 

55 

3219 


DEFB 55H 


0028 

El 

3220 


POP HL 


0029 


3221 


XYRELL DE, 24, 0 ; TITLE 


0029 

1 1 1800 

322 1 

+ 

LO DE, . RES. (0). SHL. 8+ (24) 


0D2C 

0E04 

3222 


LD C, 0100B 


0D2E 


3223 


SYSTEM STRDIS 


002 E 

FF 

3223 

+ 

RST 56 


0D2F 

34 

7 7 p 

+ 

DEFB STRDIS 




223 

+ 

IF STRDIS. EQ. I NTPC 




Z< 2. A 3 

4 - 

END IF 


0030 

C9 

3224 


RET 





3226 

; NAME: 

GET NUMBER 



3227 

; INPUT 

B = DISNUM OPTIONS 



3228 

i 

C = CHRDIS OPTIONS FOR FEEDBACK 



3229 

i 

DE = COORDINATES OF FEEDBACK AREA 



3230 

* 

HL = ADDRESS OF WHERE TO STASH NUMBER 



3231 

; DESCRIPTION: THIS ROUTINE CAN INPUT A NUMBER FROM 



3232 


EITHER THE KEYBOARD OR THE HAND CONTROL. KEYBOAR 



828:3 

i 

ENTRY PROCEEDS CONVENT I ONALY. GETNUM EXITS 



3234 

i 

WHEN THE EQUALS KEY IS PRESSED OR THE REQUIRED NU 



3235 

* 

OF DIGITS IS ENTERED 



3236 

i 

PLAYER ONE HAND CONTROL MAY ALSO BE USED 



3237 

i 

ENTER A NUMBER. TO USE THIS OPTION, PULL THE TRI 



3238 

i 

THEN ROTATE THE POT UNTIL THE NUMBER YOU WISH TO 



3239 

i 

ENTER IS SHOWN IN THE FEEDBACK AREA. PULL THE TR 



3240 

> 

AGAIN TO REGISTER THE ENTRY. IF DURING THIS PROC 



324 1 

i 

THE KEYBOARD IS USED - KEYBOARD INPUT WILL OVERRI 

0D31 

09 

3242 

MGETN: 

EXX 

0032 

CD990D 

3243 


CALL CLRNUM ; CLEAR THE NUMBER 

0035 

4F 

3244 


LD C, A ; SET ZERO DIGITS IN - POT ENAB 

0036 

FD7E07 

3245 

MGETN1 : 

LD A, (IY+CBB) ; ENTRY COMPLETE? 

0039 

A 9 

3246 


XOR C 

003 A 

E63F 

3247 


AND 3FH 

0D3C 

C8 

3248 


RET Z ; QUIT IF SO 

0030 

213600 

3249 


LD HL, MGETN 1 

0040 

E5 

3250 


PUSH HL 

004 1 


3251 


SYSTEM RANGED ; RANDOMIZE WHILE WE WAIT 

004 1 

FF 

3251 

+ 

RST 56 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 

0D42 

76 

3251 

+ 

DEFB RANGED 




3251 

+ 

IF RANGED. EQ. I NTPC 



3251 

+ 

END IF 


0D43 


3252 


SYSSUK SENTRY 


0D43 

FF 

3252 

+ 

RST 56 


0D44 

43 

3252 

+ 

DEFB SENTRY+1 




3252 

+ 

IF SENTRY. EQ. I NTPC 



3252 

+ 

END IF 


0D45 

OB 00 

3253 


DEFW NLIMBAS 


0D47 


3254 


SYSSUK DOIT 


0D47 

FF 

3254 

+ 

RST 56 


0D48 

45 

3254 

+ 

DEFB DOIT+1 




3254 

+ 

IF DOIT. EQ. I NTPC 




3254 

+ 

END IF 


0D49 

4 COD 

3255 


DEFW GNUMDO 


0D4B 

C9 

3256 


RET ; 

NOTHIN - LOOP ON SENTRY 

0D4C 


3257 

GNUMDO 

: JMF' SKYD, MGETN6 


0D4C 

13 

3257 

+ 

DEFB SKYD 


0D4D 

7F0D 

3257 

+ 

DEFW MGETN6 




3257 

+ 

IF 0 




3257 

+ 

END IF 


0D4F 


3258 


JMF' STO, MGETN2 


0D4F 

14 

3258 

+ 

DEFB STO 


0D50 

5 SOD 

3258 

+ 

DEFW MGETN2 




3258 

+ 

IF 0 




3258 

+ 

END IF 


0D52 


3259 


JMF' SF'O, MGETN3 


0D52 

1C 

3259 

+ 

DEFB SF'O 


0D53 

6 1 OD 

3259 

+ 

DEFW MGETN3 




3259 

+ 

IF 0 




3259 

+ 

END IF 




3260 

; TRIGGER ROUTINE 


0D55 

CB60 

3261 

MGETN2 

: BIT 4, B ; 

0-1 TRANS? 

0D57 

C8 

3262 


RET Z ; 

NO - IGNORE 

0D58 

79 

3263 


LD A, C 


0D59 

3C 

3264 


INC A ; 

ARE WE ALREADY IN POT MODE 

0D5A 

283A 

3265 


JR Z , MGETN9-* ; 

YEP - JUMP TO EXIT 

0D5C 

CB79 

3266 


BIT 1 , C ; 

POT LEGAL? 

0D5E 

CO 

3267 


RET NZ ; 

NO - IGNORE 

0D5F 

OEFF 

3268 


LD C, OFFH ; 

SET F'OT FLAG 



3269 

; POT 1 

ROUTINE 


0D6 1 

79 

3270 

MGETN3 

: LD A, C ; 

QUIT IF NOT IN POT MODE 

0D62 

-~i i“- 

327 1 


INC A 


0D63 

CO 

3272 


RET NZ 




3273 

; HOW 1 

MANY DIGITS? 


0D64 

D9 

3274 


EXX ; 

TO NORMAL SET 

0D65 

78 

3275 


LD A, B ; 

SNATCH DIGITS 

0D66 

D9 

3276 


EXX 


0D67 

FE01 

3277 


CP 1 ; 

1 PRAY TELL? 

0D69 

060A 

3278 


LD B, 10 


0D6B 

2802 

3279 


JR Z. MGETN4-* ; 

JUMP IF GOOD GUESS 

0D6D 

0664 

3280 


LD B, 100 ; 

WRONG ! 

0D6F 

DB1C 

3281 

MGETN4 

: IN A, (POTO) ; 

GET CURRENT POT VALUE 

0D7 1 

57 

3282 


LD D, A ; 

RANGE IT 

0D72 

AF 

3283 


XOR A 


0D73 

5F 

3284 


LD E, A 


0D74 

67 

3285 


LD H, A 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND 

COMMENT 

0D75 

19 

3286 

MGETN5: 

ADD HL, DE 


0D76 

CEOO 

3287 


ADC A, 0 

i ADD EVERY CARRY TO AC 

0D78 

27 

3288 


DAA 


0D79 

1 OF A 

3289 


DJNZ MGETN5-* 


0D7B 

D9 

3290 


EXX 

i BACK TO NORMAL SET 

0D7C 

77 

3291 


LD ( HL ) < A 


0D7D 

1814 

3292 


JR MGETN8-* 




3293 

i KEYBOARD ROUTINE 


0D7F 

OC 

3294 

MGETN6: 

INC C 

; POT MODE? 

0D80 

2004 

3295 


JR NZ. MGETN7-* 

; JUMP IF NOT 

0D82 

CD990D 

3296 


CALL CLRNUM 


0D85 

OC 

3297 


INC C 

; SET ONE DIGIT SO FAR 

0D86 

CBF9 

3298 

MGETN7 : 

SET 7, C 

; SET POT LOCKOUT 

0D88 


3299 


SYSTEM KCTASC 


0D88 

FF 

3299 

+ 

RST 56 


0D89 

40 

3299 

+ 

DEFB KCTASC 




3299 

+ 

IF KCTASC. EQ. INTPC 



3299 

+ 

END IF 


0D8A 

FE3D 

3300 


CP 

; EQUALS TYPED? 

0D8C 

2808 

3301 


JR Z, MGETN9-* 

; QUIT IF EQUALS 

0D8E 

E60F 

3302 


AND OFH 


0D90 

D9 

3303 


EXX 


0D91 


3304 


SYSTEM SHIFTU 

; SHIFT DIGIT UP 

0D9 1 

FF 

3304 

+ 

RST 56 


0D92 

60 

3304 

+ 

DEFB SHIFTU 




3304 

+ 

IF SHIFTU. EQ. INTPC 



3304 

+ 

END IF 


0D93 

D5 

3305 

MGETN8: 

PUSH DE 


0D94 


3306 


SYSTEM DISNUM 


0D94 

FF 

3306 


RST 56 


0D95 

36 

3306 

+ 

DEFB DISNUM 




3306 

+ 

IF DISNUM. EQ. INTPC 



3306 

+ 

END IF 




3307 

i ENTER 

HERE FOR EQUAL OR 

TRIGGER EXIT TO THROW OUT RETUR 

0D96 

D1 

3308 

MGETN9: 

POP DE 


0D97 

D9 

3309 


EXX 

i BACK TO NORMAL 

0D98 

C9 

3310 


RET 





3312 

i SUBROUTINE 

TO CLEAR NUMBER 

0D99 

C5 

3313 

CLRNUM: PUSH 

BC 

0D9A 

D9 

3314 

EXX 

; TO NORMAL SET 

0D9B 

E5 

3315 

PUSH 

HL 

0D9C 

78 

3316 

LD 

A- B 

0D9D 

3C 

3317 

INC 

A 

0D9E 

E63E 

3318 

AND 

3EH 

ODAO 

IF 

3319 

RRA 

i 

0DA1 

D9 

3320 

EXX 

i BACK TO ALTERNATE SET 

0DA2 

4F 

3321 

LD 

C, A 

0DA3 

AF 

3322 

XOR 

A 

0DA4 

47 

3323 

LD 

B, A 

0DA5 

D1 

3324 

POP 

DE 

0DA6 


3325 

SYSTEM FILL 

0DA6 

FF 

3325 

+ RST 

56 

0DA7 

1A 

3325 

+ DEFB 

FILL 



3325 

+ IF 

FILL. EQ. INTPC 
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0DA8 Cl 
0DA9 C9 

3325 + 

3326 

3327 

END IF 
POP BC 
RET 






3329 

; NAME: 


SHIFT UP 




3330 

; I NF'UT 


A = DATA 

TO SHIFT UP 



333 1 

i 


B = SIZE 

IN DIGITS 



3332 

i 


HL. = AREA 

TO SHIFT ADDRESS 

ODAA 

F5 

3333 

MSHFTIJ: 

PUSH 

AF 


ODAB 

78 

3334 


LD 

A, B 


ODAC 

3C 

3335 


INC 

A 


ODAD 

E63E 

3336 


AND 

3EH 


ODAF 

47 

3 3 3 7 


LD 

B, A 


ODBC 

FI 

3338 


POP 

AF 


ODB 1 

ED6F 

3339 

SHFTU 1 : 

RLD 



0DB3 

23 

3340 


INC 

HL 


ODB 4 

1 OFB 

334 1 


DJNZ 

SHFTU 1-* 


ODE: 6 

C9 

3342 


RET 




ODB 7 

454E5445 

3344 

ENTSTG: 

DEFM 

'ENTER " 


ODBD 

00 

3345 


DEFB 

0 


ODBE 

FA01 

3346 

CML : 

DEFW 

CALCL 


ODCO 

D30D 

3347 


DEFW 

F'NCM 


0DC2 

2813 

3348 


DEFW 

CMSTRT ; 

CHECKMATE START 

0DC4 

0000 

3349 

SCBL 

DEFW 

0 


0DC6 

E80D 

3350 


DEFW 

F'NSCB 


0DC8 

1 90 E 

3351 


DEFW 

SCBST 


ODCA 

47554E46 

3352 

F'NGF 

DEFM 

" GUNF I GHT " 


ODD 2 

00 

3353 


DEFB 

0 


ODDS 

43484543 

3354 

F'NCM : 

DEFM 

■'CHECKMATE' 


ODBC 

00 

3355 


DEFB 

0 


ODDD 

43414C43 

3356 

F'NCALC : 

DEFM 

"CALCULATOR" 


0DE7 

00 

3357 


DEFB 

0 


ODES 

53435249 

3358 

F'NSCB: 

DEFM 

'SCRIBBLING' 


0DF2 

00 

3359 


DEFB 

0 


0DF3 

53454C45 

3360 

GAMSTR : 

DEFM 

"SELECT GAME" 


ODFE 

67 

3361 


DEFB 

67H 


ODFF 

08 

3362 


DEFB 

8 


OEOO 

58 

3363 


DEFB 

88 


0E01 

OD 

3364 


DEFB 

1 1 0 1 B 


0E02 

28432920 

3365 


DEFM 

"(C) BALLY MFG 

1977" 

OE 1 4 

00 

3366 


DEFB 

0 


OE 1 5 


3367 


END 



OTAL 

ASSEMBLER 

ERRORS = 
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CROSS REFERENCE 




LABEL 

VALUE 

REFERENCE 






AO 

00E1 

-509 







A 1 

0070 

-521 







A 2 

0037 

-533 







A3 

00 1 B 

-545 







A4 

GOOD 

-557 







A 5 

0006 

-563 







ACT I NT 

OOOE 

-226 

227 

3040 

3040 

3084 



AKEYS 

0214 

- 1 1 23 

1075 

304 1 





ALLEYS 

0214 

-50 







ASO 

00D4 

-5 1 0 







AS 1 

006 A 

-522 







AS2 

0034 

-534 







ASS 

00 1 A 

-546 







BO 

00 C 8 

-511 







B 1 

0064 

-523 







B2 

003 1 

-535 







B3 

00 1 8 

-547 







BCD AD 

0321 

-1315 

942 






BCD ADD 

0062 

-278 

279 






BCDCHS 

00 6 A 

-282 

jL y y 

1324 

1324 

1 333 

1333 


BCDCS 

0364 

- 1 39 1 

946 






BCDDO 

OBEE 

-2872 

2994 






BCDD 1 

OBFD 

-2881 

2980 

V Q C; 7 





BCDD2 

0C05 

-2885 

2996 






BCDD3 

OCOB 

-2888 

2990 






BCDD 4 

OC 1 1 

-2891 

2984 






BCDD I V 

0068 

-281 

282 






BCDDO 

0284 

- 1 208 

945 






BCD ISP 

OBEB 

-2870 

920 

2950 





BCD ML 

02 DE 

- 1 268 

944 






BCDMUL 

0066 

-280 

281 






BCDNEG 

00 6 C 

-283 

284 

1334 

1 334 

1 336 

1 336 


BCDNG 

0341 

-1350 

947 






BCDNG1 

03 4 D 

- 1 359 

1388 






BCDSB 

03 IF 

-1316 

943 






BCDSUB 

0064 

-279 

280 






BEGRAM 

4FCE 

-595 

640 

3067 

3069 




B I TSPL 

00 AO 

-44 







BLANK 

002 A 

-244 

245 






EMUS I C 

00 1 2 

-230 

231 






BYTEF'L. 

0028 

-43 

1 506 

2169 

2248 

2270 

2289 

2311 2348 



2377 

261 1 

3214 

32 1 7 

3218 



Cl 

00 BD 

-512 







C2 

00 5 E 

-524 







C3 

002E 

-536 







C4 

00 1 7 

-548 







C5 

OOOB 

-558 







C6 

0005 

-564 







C7 

0002 

-567 







CAL CL 

01 FA 

-1099 

3346 






CALCST 

1020 

-652 

1101 






CBA 

0009 

-124 

774 

1 080 

1 089 

2129 

2729 

2932 

CBB 

0007 

-122 

842 

1 090 

3245 






CBC 

0006 

-121 

843 

CBD 

0005 

-120 

775 

CBE 

0004 
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0329 

-1323 

SDSMG1 

0333 

-1331 

SEMI4S 

4FDE 

-613 

SENFLG 

4FFA 

-637 

SENTRY 

0042 

-260 

SETB 

00 7 A 

-290 

SETEND 

0C35 

-2919 


2028 2069 

761 
2889 
2897 
937 

1828 1861 
1 830 
663 
3090 

1474 2785 

290 
1473 
1470 
1467 

289 3252 3252 

1450 1455 1456 1460 

220 
238 
255 
254 
2413 

2592 2778 

2124 2781 2787 

2818 

827 

3021 

247 

751 

246 

1099 

3351 

226 

249 

234 


950 

948 
1439 

949 
1360 

1062 

261 3041 3041 3253 3253 

291 
3029 



SETCHJT 

00 1 6 

-234 

235 

3078 



SETW 

007C 

-291 

292 




SFO 

0009 

-137 





SF1 

000 A 

-138 





SF2 

OOOB 

-139 





SF3 

OOOC 

-140 





SF4 

OOOD 

-141 





SF5 

OOOE 

-142 





SF6 

00 OF 

-143 





SF7 

0010 

-144 





SHI 

03B1 

-1455 

1482 




SHFTU1 

ODB 1 

-3171 

3341 




SHIFTR 

03 AC 

-1451 

1451 

1458 



SHIFTIJ 

0060 

-277 

278 

3305 

3305 


SIXY 

04 CC 

-1689 

1694 

1702 

1706 

1 709 

SJO 

0015 

-153 





SJ1 

0017 

-155 





SJ2 

00 1 9 

-157 





SJ3 

00 IB 

-159 





SKYD 

0013 

-146 

1091 

1602 

3044 

3258 

SK'YU 

0012 

-147 

1592 




SMLCHR 

OABF 

-2620 

1 1 20 




SMLFNT 

0200 

-1 1 15 

2945 




SNDBX 

00 1 8 

-185 

1806 

1839 

1925 


SNEGT 

034C 

- 1 358 

951 




SNUL 

0000 

-128 





SPO 

00 1C 

-148 

3260 




SP 1 

00 ID 

-149 





SF’2 

00 IE 

-150 





SF'3 

00 IF 

-151 





SSEC 

001 1 

-145 

1576 




STO 

00 1 4 

-152 

3042 

3259 



ST 1 

0016 

-154 





ST 2 

00 1 8 

-156 





STS 

001 A 

-158 





STAKO 

04BE 

- 1 679 

1696 




STHLDE 

0BB8 

-2816 

1 1 55 




STIMER 

0200 

-46 





STGREN 

0058 

-273 

274 




STRD 1 

07CE 

-2381 

2402 




STRD2 

07D4 

-2384 

2404 




STRD IS 

0034 

-250 

251 

3035 

3035 

3126 3126 3195 3195 



3201 

3201 

3224 

3224 


STRIPE 

06E2 

-2 1 34 

2139 

2152 



STRNEW 

07C4 

-2375 

919 

2407 

2414 


STRP 1 

06EB 

-2 1 39 

2174 




SUCK 

OOOC 

-223 

225 




SWO 

0010 

-198 

1614 




SW1 

0011 

-199 





SW2 

0012 

-200 





SW3 

0013 

-201 





SWHIT 

0461 

-1599 

1618 




SWLOF' 

0456 

-1591 

1 620 




SYSDPT 

OOCB 

fjQO 

756 




SYSFNT 

0206 

-1108 

2462 




SYSRAM 

4FCE 

-640 





TIMEX 

047B 

- 1 625 

1 106 






27 

1065 

1096 

3074 


55 

1573 




26 





78 





79 





80 





77 





30 

1568 




22 

1088 




46 

1546 




88 

1067 

1077 



38 

836 




16 

217 




39 

762 




88 

2201 

2325 

2327 


85 

2071 

2090 

2093 

2111 

84 

2060 

2088 

2109 


83 

2061 

2089 

2108 


92 

2090 

2111 



90 

2071 




91 

2093 




82 

2058 

2104 



81 

2059 

2103 



69 





68 

2037 

2040 



74 





73 

2040 




43 

244 




65 

2198 

2330 



79 

2328 




78 

2329 




87 

2029 




66 

2029 

2201 

2325 

2327 

67 

2030 

2031 



72 





71 

2200 




70 





77 





76 

2199 




75 





56 

258 




55 

256 




95 





75 





81 





01 

1765 

1805 

1850 


82 

1071 

1711 

1829 

1914 


-183 1070 1712 1831 1915 
-184 

-238 239 

-586 587 2160 2161 3072 

-587 

2255 2293 

2258 2285 











WRIT 0024 
WRITA 0026 
WRITF' 0022 
WRITR 0020 
WRTL1 088D 
WRTL2 0898 
WRTL3 08 AC 
WRTL4 08BF 
WRTL5 08C4 
WRTL6 08 Cl 4 
WRTLIN 086C 
XINTC 0002 
XNIB 0B7B 
XNIB1 0B8C 
XPAND 0019 
XF'NDON 0001 


-241 

242 


-242 

243 


-240 

241 


-239 

240 


-2538 

2584 


-2546 

2576 


-2562 

2559 


-2570 

2617 


-2575 

2605 


-2586 

2608 


-2522 

2492 


-218 

219 

3085 

-2756 

2849 

2979 

-2769 

2868 


-192 

2554 

2589 

-36 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND 

COMMENT 



641 







642 



LIST S, X, M, T 




643 






644 


* SKETCH * 




645 






646 







647 


THE OFFICIAL NAME OF THIS 



648 


PROGRAM 

IS SCRIBBLING 




649 







650 


SKETCh 

EQUATES 




651 


SKETCh 

PACKET DISPLACEMENTS: 

>00 IE 


652 


3CPSIZ 

EQU 30 

; SIZE OF SKETCH PACKET 

>0000 


653 


SCSAVA 

EQU 0 

; SAVE AREA START 

>001 A 


654 


3CXC 

EQU 26 

; X COORDINATE 

>00 IB 


655 

SCYC 

EQU 27 

; Y COORDINATE 

>00 1C 


656 


BCSADL 

EQU 28 

; SAVE ADDRESS LO AND HI 

>00 1 D 


657 


SCSADH 

EQU 29 




658 


OTHER 

GOODIES 


>0004 


659 

MOVTMR 

EQU 4 

; MOVE RATE 

>0014 


660 

KSCTRV 

EQU 20 

; COLOR STEPPING TIME 



661 



ORG 0E19H 

i ** START 

0E19 


662 

BEGIN: 

SYSSUK GETPAR 


OE 1 9 

FF 

662 

+ 


RST 56 


OE 1 A 

4D 

662 

+ 


DEFB GETPAR+ 1 




662 

+ 


IF GETPAR. EQ 

I NTPC 



662 

+ 


END IF 


OE 1 B 

2802 

663 



DEFW NOPLAY 


OE 1 D 

01 

664 



DEFB 1 


0E1E 

F34F 

665 



DEFW NUMF'LY 


0E20 


666 


SCCLR : 



0E20 

31E84E 

667 



LD SPj SCRSTK 


0E23 


668 



SYSTEM I NTPC 


0E23 

FF 

668 

+ 


RST 56 


0E24 

00 

668 

+ 


DEFB I NTPC 




668 

4 - 


IF I NTPC. EQ. 

INTPC 

>000 1 


668 

+INTP© 

DEFL 1 




668 

+ 


END IF 


0E25 


669 



DO FILL 

; CLEAR SCREEN 

0E25 

IB 

669 

+ 


DEFB FILL+1 


0E26 

0040 

670 



DEFW NORMEM 


0E28 

600E 

671 



DEFW 92*BYTEF'L 


0E2A 

00 

672 



DEFB 0 


0E2B 


673 



DO FILL 


0E2B 

IB 

673 

+ 


DEFB FILL+1 


0E2C 

F04E 

674 



DEFW P1SCP 


0E2E 

7800 

675 



DEFW SCPS I Z*4 


0E30 

00 

676 



DEFB 0 


0E31 


677 



DO SETOUT 


0E31 

17 

677 

4 


DEFB SETOUT + 1 


0E32 

B8 

678 



DEFB 184 


0E33 

28 

679 



DEFB 40 


0E34 

08 

680 



DEFB 8 


0E35 


681 



DO MOVE 


0E35 

5F 

681 

4 


DEFB MOVE+1 


0E36 

E84E 

682 



DEFW COLORS 


0E38 

0800 

683 



DEFW 8 


0E3A 

OC 1 0 

684 



DEFW INI COL 




PAGE 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 

0E3C 


685 


DO 

COLSET 

0E3C 

19 

685 

+ 

DEFB 

COLSET+ 1 

0E3D 

E84E 

686 


DEFW 

COLORS 

0E3F 


687 


DO 

SETW 

0E3F 

7D 

687 

+ 

DEFB 

SETW+1 

0E40 

46 

688 


DEFB 

70 

0E41 

24 

689 


DEFB 

36 

0E42 

0A4F 

690 


DEFW 

P1SCP+SCXC 

0E44 


691 


DO 

SETW 

0E44 

7D 

691 

+ 

DEFB 

SETW+1 

0E45 

53 

692 


DEFB 

83 

0E46 

24 

693 


DEFB 

36 

0E47 

284F 

694 


DEFW 

P2SCP+SCXC 

0E49 


695 


DO 

SETW 

0E49 

7D 

695 

+ 

DEFB 

SETW+1 

0E4A 

46 

696 


DEFB 

70 

0E4B 

30 

697 


DEFB 

48 

0E4C 

464F 

698 


DEFW 

P3SCP+SCXC 

0E4E 


699 


DO 

SETW 

0E4E 

7D 

699 

+ 

DEFB 

SETW+1 

0E4F 

53 

700 


DEFB 

83 

0E50 

30 

701 


DEFB 

48 

0E51 

644F 

702 


DEFW 

P4SCP+SCXC 

0E53 


703 


DO 

SETB 

0E53 

7B 

703 

+ 

DEFB 

SETB+1 

0E54 

04 

704 


DEFB 

MOVTMR 

0E55 

D54F 

705 


DEFW 

CTO 

0E57 


706 


DONT 

XINTC 

0E57 

02 

706 

+ 

DEFB 

XINTC 

0E58 

21580E 

707 

MAI NLP: 

LD 

HLj mainlp 

0E5B 

E5 

708 


PUSH 

HL 

0E5C 


709 


SYSSUK SENTRY 

0E5C 

FF 

709 

+ 

RST 

56 

0E5D 

43 

709 

+ 

DEFB 

SENTRY+1 



709 

+ 

IF 

SENTRY. EQ. I NTPC 



709 

+ 

END IF 

0E5E 

650E 

710 


DEFW 

KEYMES 

0E60 


711 


SYSSUK DOIT 

0E60 

FF 

711 

+ 

RST 

56 

0E61 

45 

71 1 

+ 

DEFB 

DOIT+1 



711 

+ 

IF 

DOIT. EQ. I NTPC 



711 

+ 

END IF 

0E62 

A10E 

712 


DEFW 

SCDOTB 

0E64 

C9 

713 


RET 


0E65 

2F 

714 

KEYMES: 

DEFB 

2FH 

0E66 

OF 

715 


DEFB 

OFH 

0E67 

OF 

716 


DEFB 

OFH 

0E68 

OF 

717 


DEFB 

OFH 



718 

; KEYBOARD HANDLER 

0E69 

05 

719 

KEYBO: 

DEC 

B 

OE/-.A 

0E03 

720 


LD 

C, 3 

0E6C 

78 

721 


LD 

A, B 

0E6D 

FE 1 4 

722 


CP 

20 ; CLEAR ENTRY DOWN? 

0E6F 

28AF 

723 


JR 

Z. SCCLR-* ; JUMP TO CLEAR IF : 

0E7 1 

OF 

724 


RRCA 


0E72 

OF 

725 


RRCA 


0E73 

A 1 

726 


AND 

C 
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OPCD 
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COMMENT 


0E74 

727 

SYSSUK INDEXB 



0E74 FF 

727 + 

RST 

56 



0E75 5D 

727 + 

DEFB 

INDEXB+1 




727 + 

IF 

INDEXB. EQ. I NTPC 



727 + 

END IF 



0E76 290F 

728 

DEFW 

CDELTB 



0E78 EE 

729 

EX 

DE, HL 



0E79 78 

730 

LD 

A, B 



0E7A A1 

731 

AND 

C 



0E7E 67 

732 

LD 

H, A 



0E7C 79 

733 

LD 

A, C 



0E7D 94 

734 

SUB 

H 



0E7E 

735 

SYSSUK INDEXB 

; POINT AT COLOR 


0E7E FF 

735 + 

RST 

56 


0E7F 5D 

735 + 

DEFB 

INDEXB+1 




735 + 

IF 

INDEXB. EQ. I NTPC 



735 + 

END IF 



0E80 E84E 

736 

DEFW 

COLORS 



0E82 1A 

737 

LD 

A, <DE) 



0E83 86 

738 

ADD 

A, (HL) 

; ADD DELTA FACTOR 


0E84 CB58 

739 

BIT 

3, B 

; WAS KEY FOR INTENSITY? 

0E86 2804 

740 

JR 

2, KEYB1-* 



0E88 AE 

741 

XOR 

(HL) 



0ES9 E607 

742 

AND 

7 



0E8B AE 

743 

XOR 

(HL) 



0E8C 77 

744 KEYB1 : 

LD 

( HL ) , A 



0E8D 23 

745 

INC 

HL 

; CHANGE COLOR ON OTHER SIDE 

0E8E 23 

746 

INC 

HL 



0E8F 23 

747 

INC 

HL 



0E90 23 

748 

INC 

HL 



0E91 77 

749 

LD 

< HL ) , A 



0E92 

750 

SYSSUK COLSET 



0E92 FF 

750 + 

RST 

56 



0E93 19 

750 + 

DEFB 

COLSET+1 




750 + 

IF 

COLSET. EQ. I NTPC 



750 + 

END IF 



0E94 E84E 

751 

DEFW 

COLORS 



0E96 3E14 

752 

LD 

A, ksctrv 

; SET KEYSEX CLEAR 

TIMER 

0E98 32D64F 

753 

LD 

(CT1 ), A 



0E9B C9 

754 

RET 





755 ; ROUTINE TO 

CLEAR KEYSEX 



0E9C: AF 

756 KLRKSX : 

XOR 

A 



0E9D 32E34F 

757 

LD 

(KEYSEX), A 



0EA0 C9 

758 

RET 




0EA1 

759 SCDOTB: 

JMP 

SCTO, DOWRTS 



0EA1 01 

759 + 

DEFB 

SCTO 



0EA2 D30F 

759 + 

DEFW 

DOWRTS 




759 + 

IF 

0 




759 + 

END IF 



0EA4 

760 

JMP 

SCT 1 < KLRKSX 



0EA4 02 

760 + 

DEFB 

SCT 1 



0EA5 9C0E 

760 + 

DEFW 

KLRKSX 




760 + 

IF 

0 




760 + 

END IF 



0EA7 

761 

JMP 

SKYD, KEYBO 



0EA7 13 

761 + 

DEFB 

SKYD 



0EA8 690E 

761 + 

DEFW 

KEYBO 
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781 

+ 

IF 

0 



761 

+ 

END IF 



762 

; ITERATE THROUGH ACTIVE PLAYERS SUBROUTINE 

OEAA 

DD21F04E 

763 

ITER4: 

LD 

IX, P1SCP 

OEAE 

3AF34F 

764 


LD 

A, (NUMPLY) 

OEB 1 

47 

765 


LD 

B, A 

0EB2 

4F 

766 


LD 

C, A 

0EB3 

C5 

767 

ITER41 : 

PUSH 

EC 

OEB 4 

E5 

768 


PUSH 

HL 

0EB5 

1 1BAOE 

769 


LD 

DE, ITRET 

0EB8 

D5 

770 


PUSH 

DE 

OEB 9 

E9 

771 


JP 

< HL ) 

OEB A 

1 1 1 EOO 

772 

I TRET: 

LD 

DE, SCPSIZ 

OEBD 

DO 19 

773 


ADD 

IX, DE 

OEBF 

El 

774 


POP 

HL 

OECO 

Cl 

775 


POP 

BC 

OEC1 

1 OFO 

776 


DJNZ 

ITER4 1 -$ 

0EC3 

C9 

777 


RET 




778 

; UPDATE COORDINATES ROUTINE 

0EC4 

79 

779 

SCRUF'D : 

LD 

A, C 

0EC5 

90 

780 


SUB 

E 

0EC6 


781 


SYSSUK INDEXB 

0EC6 

FF 

781 

+ 

RST 

56 

0EC7 

5D 

781 

+ 

DEFB 

INDEXB+1 



781 

+ 

IF 

INDEXB. EQ. I NTPC 



781 

+ 

END IF 

0EC8 

E44F 

782 


DEFW 

OSWO 

OECA 

E60F 

783 


AND 

OFH 

OECC 

CD 01 10 

784 


CALL 

GETDLT ; GET DELTAS 

OECF 

DD7E 1 A 

785 


LD 

A, < IX+SCXC) ; UPDATE X 

0ED2 

82 

786 


ADD 

A, D 

0ED3 

FE98 

787 


CP 

152 ; OUT OF BOUNDS? 

0ED5 

3003 

788 


JR 

NC, SCRUF'l-* 

0ED7 

DD771A 

789 


LD 

(IX+SCXC), A 

OEDA 

DD7E 1 B 

790 

SCRUP1: 

LD 

A, ( IX+SCYC) ; SAME FOR Y 

OEDD 

84 

791 


ADD 

A, H 

OEDE 

FE55 

792 


CP 

85 

OEEO 

DO 

793 


RET 

NC 

OEE 1 

DD771B 

794 


LD 

(IX+SCYC), A 

0EE4 

C9 

795 


RET 




796 

; RESTORE 


0EE5 

DDES 

797 

SCREST : 

PUSH 

IX 

0EE7 

D1 

798 


POP 

DE 

0EE8 

1A 

799 


LD 

A, (DE) 

0EE9 

A7 

800 


AND 

A 

OEEA 

C8 

SO 1 


RET 

Z 

OEEB 

DD661D 

802 


LD 

H, < IX+SCSADH) 

OEEE 

DD6E1C 

b03 


LD 

L, < I X+SCSADL ) 

OEF 1 


804 


SYSTEM RESTOR 

OEF 1 

FF 

804 

+ 

RST 

56 

OEF 2 

2E 

804 

+ 

DEFB 

RESTOR 



804 

+ 

IF 

RESTOR. EQ. I NTPC 



804 

+ 

END IF 

OEF 3 

AF 

805 


XOR 

A 

0EF4 

12 

806 


LD 

(DE), A 

0EF5 

C9 

807 


RET 




808 

; WRITE 

ROUTINE 



PAGE 
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□PCD OPERAND COMMENT 

0EF6 

79 

809 

SCRWRT : 

LD A, C 

0EF7 

90 

8 1 0 


SUB B 

0EF8 


81 1 


SYSSUK INDEXB 

0EF8 

FF 

81 1 

+ 

RST 56 

0EF9 

5D 

81 1 

+ 

DEFB INDEXB+1 



81 1 

+ 

IF INDEXB. EQ. I NTPC 



81 1 

+ 

END IF 

OEFA 

E44F 

812 


DEFW GSWO 

OEFC 

E610 

813 


AND 10H 

OEFE 

C8 

814 


RET Z 

OEFF 

2B 

815 

SCRWR1 : 

DEC HL ; BACKUP 

OF 00 

2E 

816 


DEC HL 

0F01 

2B 

817 


DEC HL 

OF 02 

2B 

818 


DEC HL. 

OF 03 

2B 

819 


DEC HL 

OF 04 

7E 

820 


LD A, < HL ) 

OF 05 

07 

821 


RLCA 

OF 06 

07 

822 


RLCA 

0F07 

4F 

823 


LD C, A 

OF 08 

E603 

824 


AND 3 

OFOA 


825 


SYSSUK INDEXB ; SET SI 

OFOA 

FF 

825 

+ 

RST 56 

OF OB 

5D 

825 

+ 

DEFB INDEXB+1 



825 

+ 

IF INDEXB. EQ. I NTPC 



825 

+ 

END IF 

OFOC 

2 6 OF 

826 


DEFW SIZTBL 

OF OE 

DD561B 

827 


LD D, (IX+SCYC) 

OF 1 1 

DD5E 1 A 

O vg 


LD Ei < IX+SCXC) 

OF 1 4 

47 

829 


LD Bi A 

OF 1 5 

79 

830 


LD A, C 

OF 1 6 

07 

831 


RLCA 

OF 1 7 

07 

C; O v 


RLCA 

OF 1 8 

E603 

;Z; 


AND 3 

OF 1 A 


834 

SCRWR2: 

SYSSUK INDEXB 

OF 1 A 

FF 

834 

+ 

RST 56 

OF IB 

5D 

834 

+ 

DEFB I NDEXB+ 1 



834 

+ 

IF INDEXB. EQ. INTPC 



834 

+ 

END IF 

OF 1C 

220F 

835 


DEFW COLMSK 

OF IE 

48 

836 


LD C, B 

OF 1 F 


837 


SYSTEM RECTAN 

OF IF 

FF 

837 

+ 

RST 56 

OF 20 

1C 

837 

+ 

DEFB RECTAN 



837 

+ 

IF RECTAN. EQ. INTPC 



837 

+ 

END IF 

OF 2 1 

C9 

P 


RET 

0F22 

00 

039 

CGLMSK: 

DEFB 0 

OF 2 3 

55 

840 


DEFB 01 01010 IB 

0F24 

AA 

841 


DEFB 1010101 OB 

0F25 

FF 

842 


DEFB 1111 HUB 

0F26 

01 

843 

SIZTBL: 

DEFB 1 

0F27 

02 

844 


DEFB 2 

OF 2 8 

04 

845 


DEFB 4 

OF 2 9 

08 

846 

CDELTB: 

DEFB 8 

0F2A 

F8 

847 


DEFB -8 

0F2B 

01 

848 


DEFB 1 

0F2C 

FF 

849 


DEFB -1 
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850 

; SAVE 

ROUTINE 

OF 2D 

78 

851 

SCRSAV: 

LD A, B 

0F2E 


852 


SYSSUK INDEXB 

0F2E 

FF 

852 


RST 56 

0F2F 

5D 

852 

+ 

DEFB INDEXB+1 



852 

+ 

IF INDEXB. EQ. I NTPC 



852 

+ 

END IF 

OF 30 

E34F 

O ^ 


DEFW OSWO-1 

OF 32 

E610 

854 


AND 1 OH 

OF 34 

CO 

855 


RET NZ 

OF 35 

E5 

856 


PUSH HL 

OF 36 

DD56 1 B 

857 


LD D, < I X+SCYC ) 

OF 3 9 

DD5E1A 

858 


LD Ej ( I X+SCXC) 

0F3C 


859 


SYSTEM RELAB 1 

0F3C 

FF 

859 

+ 

RST 56 

OF 3D 

3 A 

859 

+ 

DEFB RELAB 1 



859 

+ 

IF RELAB 1. EQ. I NTPC 



859 

+ 

END IF 

0F3E 

DD721D 

860 


LD ( I X+SCSADH ) , D 

OF 41 

DD731C 

86 1 


LD ( I X+SCSADL ) , E 

OF 4 4 

EB 

862 


EX DE, HL„ 

OF 45 

DDES 

863 


PUSH IX 

OF 47 

D 1 

864 


POP DE 

OF 48 

0 1 0308 

865 


LD BC, 0803H ; SAVE WORST CASE 

0F4E 


a fa fa 


SYSTEM SAVE 

OF 415 

FF 

866 

+ 

RST 56 

0F4C 

2C 

866 

+ 

DEFB SAVE 



866 

4- 

IF SAVE. EQ. I NTPC 



866 

+ 

END IF 

0F4D 

El 

867 


POP HL 

0F4E 

1 8AF 

868 


JR SCRWR1-* 



869 

; ZERO 

PLAYER GAME WRITE HANDLER 

OF 50 

21F04E 

870 

ZEROPL: 

LD HL, ZPSTMR ; LOAD F'TR TO SIZE TIMER 

OF 5 3 

1 1F34E 

871 


LD DE, ZPSIZ ; AND SIZE TRACKER 

OF 5 6 

“lET 

872 


DEC (HL) ; DECREMENT SIZE TIMER 

OF 57 

F2690F 

873 


JP P, ZPA , JUMP IF NO COUNTDOWN 

OF 5 A 


874 


SYSSUK RANGED ; GET NEW SIZE 

OF 5 A 

FF 

874 

+ 

RST 56 

0F5B 

77 

874 

+ 

DEFB RANGED+ 1 



874 

+ 

IF RANGED. EQ. I NTPC 



874 

+ 

END IF 

0F5C 

30 

875 


DEFB 48 

0F5D 

FE08 

876 


CP 8 ; 8-47? 

0F5F 

3802 

877 


JR C, ZPO~$ ; NO - ZPO 

OF 6 1 

E603 

878 


AND 3 ; YES - HAVE MORE 1-4S 

OF 63 

3C 

879 

ZPO: 

I NC A 

OF 6 4 

12 

880 


LD ( DE ) , A ; SET NEW SIZE 

OF 6 5 


881 


SYSSUK RANGED ; GET NEW SIZE TIMER 

OF 65 

FF 

881 

+ 

RST 56 

OF 6 6 

77 

88 1 

+ 

DEFB RANGED+ 1 



881 

+ 

IF RANGED. EQ. I NTPC 



881 

+ 

END IF 

OF 67 

78 

O p 


DEFB 120 

OF 6 8 

77 

O O 


LD < HL ) , A 

OF 6 9 


884 

ZPA: 

INC HL ; ADVANCE TO COLOR STUFF 

OF 6 A 

13 

885 


INC DE 

0F6B 

35 

886 


DEC (HL) ; AND DEC COLOR TIMER 


; AND DEC COLOR TIMER 
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ADDR 

OBJECT 

STMT 

LABEL 

OF' CD OPERAND COMMENT 

0F6C 

F2770F 

887 


JP P, ZF'B 

0F6F 


ft ft 8 


SYSSIJK RANGED , GET NEW COLOR 

0F6F 

FF 

388 

+ 

RST 56 

OF 70 

77 

yyy 

4- 

DEFB RANGED+ 1 



o o o 

4- 

IF RANGED. EG. I NTPC 



888 

4- 

END IF 

0F7 1 

04 

889 


DEFB 4 

0F72 

12 

890 


LD ( DE ) , A 

OF 7 3 


891 


SYSSIJK RANGED ; GET NEW COLOR TIMER 

OF 7 3 

FF 

891 

4- 

RST 56 

OF 7 4 

77 

891 

4- 

DEFB RANGED+1 



891 

4- 

IF RANGED. EG. I NTPC 



89 1 

4- 

END IF 

0F75 

78 

892 


DEFB 120 

OF 7 6 

77 

893 


LD ( HL ) , A 

0F77 

~t 

894 

ZF'B: 

INC HL ; TO DIRECTION STUFF 

OF 78 

13 

895 


I NC DE 

OF 79 

35 

896 


DEC <HL) ; DECREMENT DIRECTION TIMER 

0F7A 

F2930F 

897 


JP F', ZPD 

0F7D 

1 1F54E 

898 

Z PC : 

LD DE, DIRVAL ; DE = DIRECTION TRACKER 

OF 80 


899 


SYSSUK RANGED ; DRAW NEW DIRECTION 

OF 80 

FF 

899 

4- 

RST 56 

OF 8 1 

77 

899 

4- 

DEFB RANGED+1 



899 

4- 

IF RANGED. EG. I NTPC 



899 

4- 

END IF 

OF 82 

OA 

900 


DEFB 10 

OF 83 

3C 

901 


INC A 

OF 8 4 

FE03 

902 


CP 3 ; REJECT ILLEGAL VALUES 

OF 8 6 

28F5 

903 


JR Z, ZF'C-$ 

OF 88 

FE07 

904 


CP 7 

OF 8 A 

28F 1 

905 


JR Z,ZPC-$ 

0F8C 

12 

906 


LD < DE ) , A 

0F8D 


907 


SYSSUK RANGED 

0F8D 

FF 

907 

4- 

RST 56 

0F8E 

77 

907 

+ 

DEFB RANGED+1 



907 

4- 

IF RANGED. EG. I NTPC 



907 

+ 

END IF 

0F8F 

23 

908 


DEFB 40 

OF 90 

32F24E 

909 


LD ( DIRTMR ) , A 

OF 9 3 

1A 

9 1 0 

ZPD: 

LD A, (DE) ; GET DIRECTION VALUE 

OF 94 

CDO 1 1 0 

911 


CALL GETDLT i GET DELTAS 

OF 9 7 

0 1 0A4F 

912 


LD BC, F'lSCF'+SCXC ; POINT AT COORDINATES 

0F9A 

OA 

913 


LD A, (BC) 

0F9B 

82 

914 


ADD A, D 

0F9C 

FE50 

915 


CP 80 

0F9E 

3 ODD 

916 


JR NC, ZF'C-$ ; GET NEW DIRECTION IF AT LMT 

OF AO 

02 

917 


LD ( BC ) , A 

OF A 1 

5F 

9 1 8 


LD E, A ; SAVE X COORDINATE 

OF A 2 

03 

919 


I NC BC 

OF A 3 

OA 

920 


LD A, (BC) 

0FA4 

84 

92 1 


ADD A, H 

0FA5 

FE2E 

922 


CP 46 

0FA7 

30D4 

923 


JR NC, ZPC-* 

OF A 9 

02 

924 


LD ( BC ) , A 

OF A A 

57 

925 


LD D, A ; SET Y COORDINATE 

OFAB 

21F34E 

926 


LD HL, ZPSIZ ; POINT AT SIZES AGAIN 

OF AE 

46 

927 


LD B, (HL) 



*MOD 

COMP Z— 80 

CROS 

3 ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 8 

ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 

OFAF 

!-! 

92S 


INC 

HL 


OF BO 

7E 

929 


LD 

A, (HL) 

; GET COLOR TOO 

OFB1 

CD 1 A OF 

930 


CALL 

SCRWR2 

; DO FIRST WRITE 

0FB4 

67 

931 


LD 

H, A 

i SAVE COLOR 

0FB5 

DS 

932 


PUSH 

DE 

; AND X, Y 

0FB6 

3E5C 

9:33 


LD 

A, 92 

; REFLECT Y 

OFBS 

90 

934 


SUB 

B 


0FB9 

97 

935 


SUB 

D 


OFBA 

57 

936 


LD 

D, A 


OFBB 

7C 

937 


LD 

A, H 


OFBC 


938 


SYSTEM RECTAN 


OFBC 

FF 

938 

+ 

RST 

56 


OFBD 

1C 

933 

+ 

DEFB 

RECTAN 




933 

+ 

IF 

RECTAN. EQ. 

INTPC 



938 

+ 

END IF 


OF BE 

3EA0 

939 


LD 

A, 160 

/ REFLECT X 

OFCO 

91 

940 


SUB 

c 


OF Cl 

93 

941 


SUB 

E 


0FC2 

5F 

942 


LD 

E, A 


0FC3 

7C 

943 


LD 

A, H 


0FC4 


944 


SYSTEM RECTAN 


OFC4 

FF 

944 

+ 

RST 

56 


0FC5 

1C 

944 

+ 

DEFB 

RECTAN 




944 

4- 

IF 

RECTAN. EQ. 

INTPC 



944 

+ 

END IF 


0FC6 

El 

945 


POP 

HL 

; RESTORE X/ Y 

0FC7 

54 

946 


LD 

D, H 

; RESTORE Y 

0 FC 8 


947 


SYSTEM RECTAN 


0FC8 

FF 

947 


RST 

56 


0FC9 

1 C 

947 

+ 

DEFB 

RECTAN 




947 

+ 

IF 

RECTAN. EQ. 

INTPC 



947 

+ 

END IF 


OFCA 

3EFF 

948 


LD 

A, OFFH 

; RESET TIMEOUT 

OFCC 

32EC4F 

949 


LD 

(TIMOUT), A 


OFCF 

3E0 1 

950 

ZERO! : 

LD 

A.. 1 

; RESET COUNTER-TIMER 

OFD1 

1 82 A 

95 1 


JR 

ZER02-* 


0FD3 

3AF34F 

952 

DOWRTS 

: LD 

Aj < NUMF'LY ) 


0 FD 6 

3D 

953 


DEC 

A 


0FD7 

FE04 

954 


CP 

4 


OF Ci 9 

D2500F 

955 


JP 

NC» ZEROF'L 


OFDC 

21C40E 

956 


LD 

HL/ SCRIJPD 


OFDF 

CDAAOE 

957 


CALL 

ITER4 


0FE2 

2 1 E50E 

958 


LD 

HL/ SCREST 


0FE5 

CDAAOE 

959 


CALL 

ITER4 


OFES 

2 1 F60E 

960 


LD 

HL/ SCRWRT 


OFEB 

CDAAOE 

961 


CALL 

ITER4 




962 

; NOW 

GOING BACKWARDS S 

AVE AND WRITE EVERYBODY WITH TRIGG 

OFEE 

41 

963 


LD 

B, C 

OFEF 

1 1E2FF 

964 

SCRB3: 

LD 

DE/ -SCPSIZ 


OFF 2 

DD 1 9 

965 


ADD 

I X / DE 


0FF4 

C5 

966 


PUSH 

BC 


OFFS 

CD2D0F 

967 


CALL 

SCRSAV 


OFFS 

Cl 

968 


POP 

BC 


OFF 9 

1 OF 4 

969 


DJNZ 

SCRB3-* 


OFFB 

3E04 

970 


LD 

A, MOVTMR 


OFFEi 

32D54F 

971 

ZER02: 

LD 

< CTO ) / A 


1 OOO 

C9 

972 


RET 


; DONE 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 



973 

; SUBROUTINE 

TO SCARE UP DELTAS 

1001 

C5 

974 

GETDLT : 

PUSH 

BC 

1002 

47 

975 


LD 

B, A 

1 003 


976 


SYSSUK MSKTD 

1003 

FF 

976 

+ 

RST 

56 

1 004 

7F 

976 

+ 

DEFB 

MSKTD+1 



976 

+ 

IF 

MSKTD. EQ. I NTPC 



976 

+ 

END IF 

1005 

0001 

977 


DEFW 

100H 

1 007 

00 

978 


DEFB 

0 

1 008 

000 1 

979 


DEFW 

100H 

1 OOA 

Cl 

980 


POP 

BC 

1 OOB 

C9 

981 


RET 




982 

; INITIAL COLORS: 

1 ooc 

08 

983 

INI COL : 

DEFB 

OSH 

100D 

5B 

984 


DEFB 

5BH 

1 OOE 

A5 

985 


DEFB 

0A5H 

100F 

07 

986 


DEFB 

007H 

1010 

08 

987 


DEFB 

OSH 

101 1 

5B 

988 


DEFB 

5BH 

1012 

A 5 

989 


DEFB 

0A5H 

1013 

07 

990 


DEFB 

07H 



991 


ORG 

4000H+3720 



992 

; SKETCH RAM: 


4E88 


993 


DEFS 

96 

4EE8 


994 

SCRSTK: 



4EE8 


995 

COLORS : 

DEFS 

8 

4EF0 


996 

ZPSTMR 

EQU 

* 

4EF2 


997 

DIRTMR 

EQU 

ZF'STMR+2 

4EF3 


998 

ZPSIZ 

EQU 

DIRTMR+1 

4EF5 


999 

DIRVAL 

EQU 

ZPSIZ+2 

4EF0 


1000 

P1SCP: 

DEFS 

SCPSIZ 

4F0E 


1001 

P2SCF': 

DEFS 

SCPSIZ 

4F2C 


1002 

P3SCP: 

DEFS 

SCPSIZ 

4F4A 


1003 

P4SCP: 

DEFS 

SCPSIZ 

4F68 


1004 


END 



TOTAL ASSEMBLER ERRORS = 


PAGE 
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CROSS REFERENCE 


LABEL 

VALUE 

REFERENCE 

AO 

00 E 1 

-508 

A 1 

0070 

-520 

A 2 

0037 

—582 

A3 

00 1 B 

-544 

A4 

OOOD 

-556 

A5 

0006 

-562 

ACT I NT 

00 OE 

-225 

ALLEYS 

02 1 4 

-49 

ASO 

00D4 

-509 

AS 1 

006 A 

-521 

AS2 

0034 

—533 

ASS 

001 A 

-545 

BO 

00 C 8 

-510 

B 1 

0064 

-522 

B 2 

0031 

-534 

B3 

00 1 S 

-546 

BCD ADD 

0062 

-277 

BCD CHS 

006 A 

-281 

BCDDIV 

0068 

-280 

BCDMIJL 

0066 

-279 

BCDNEG 

006C 

-282 

BCDSIJB 

0064 

-278 

BEGIN 

OE 1 9 

-662 

BEGRAM 

4FCE 

-594 

BITSF'L 

00 AO 

-43 

BLANK 

002 A 

-243 

EMUS I C 

00 1 2 

—229 

BYTEF'L 

0028 

-42 67 1 

Cl 

00 BD 

-51 1 

C 2 

005E 

-523 

C3 

002E 

-535 

C4 

0017 

-547 

C5 

00 OE: 

-557 

C 6 

0005 

-563 

C7 

0002 

-566 

CBA 

0009 

-123 

CBB 

0007 

-121 

CBC 

0006 

- 1 20 

CBD 

0005 

-119 

CBE 

0004 

-118 

CBFLAG 

0008 

-122 

CBH 

OOOB 

-125 

CBIXH 

0003 

-117 

CBIXL 

0002 

-116 

CBIYH 

0001 

-115 

CBIYL 

0000 

-114 

CBL 

000 A 

-124 

CDELTB 

OF 2 9 

-804 728 

CHDOWN 

0001 

-111 

CHLEFT 

0002 

-110 

CHRDIS 

0032 

-248 

CHRIGH 

0003 

-109 

CHTRIG 

0004 

-108 



CHUR 

0000 

-112 


CNT 

4FDD 

-61 1 


COLOL 

0004 

- 1 68 


COLOR 

0000 

- 1 64 


COL 1 L 

0005 

- 1 69 


COL 1 R 

000 1 

-165 


C0L2L 

0006 

-170 


C0L2R 

0002 

-166 


C0L3L 

0007 

-171 


COLOR 

0003 

-167 


COL EX 

OOOB 

-172 


COLL ST 

4FES 

-622 


COLMSK 

0F22 

-797 

835 

COLORS 

4EE8 

-927 

682 

COLSET 

0018 

-234 

686 

CONCM 

0008 

- 1 89 


CS 1 

00 B 2 

-512 


|“; Cj ~j 

0059 

-524 


css 

002C 

-536 


CS4 

0015 

-548 


CSS 

000 A 

-558 


CTO 

4FD5 

-602 

705 

CT1 

4FD6 

-603 

753 

CT2 

4FD7 

-604 


CT3 

4FD8 

-605 


CT4 

4FD9 

-606 


CT5 

4FDA 

-607 


CT6 

4FDB 

-608 


CT7 

4FDC 

-609 


CTIMER 

0203 

-46 


D1 

00 A 8 

-513 


02 

0054 

-525 


03 

0029 

-537 


04 

0014 

-549 


DABS 

0072 

-285 


DADD 

006E 



DECCTS 

00 1 0 

-226 


DIRTMR 

4EF2 

—929 

909 

DIRVAL 

4EF5 

-931 

898 

DISNUM 

0036 

-250 


DISTIM 

0052 

-267 


DOIT 

0044 

-260 

712 

DOITB 

0046 

-261 


DOWRTS 

0F03 

-886 

760 

DS1 

009F 

-514 


DS2 

004F 

-526 


DS3 

0027 

-538 


DS4 

0013 

-550 


DS5 

0009 

-559 


DS6 

0004 

-564 


DSMG 

0070 

-284 


DIJRAT 

4FEA 

-624 


El 

0096 

-515 


E2 

00 4 A 

-527 


E3 

0025 

-539 


E4 

0012 

-551 


EMUS I C 

00 1 4 

-230 



686 

751 


971 


712 


736 751 

751 



END 

COCO 

-379 



ENDSCR 

4FF4 

-632 



FI 

008D 

-516 



F 2 

0046 

-528 



F3 

0022 

-540 



F4 

001 1 

-552 



F5 

0008 

-560 



FILL 

001 A 

-235 

670 

674 

FIRSTC 

2000 

-40 



FNTSML 

02 OD 

-48 



FNTSYS 

0206 

-47 



FS1 

0085 

-517 



FS 2 

0042 

-529 



FS3 

0020 

-541 



FS4 

00 1 0 

-553 



FTBASE 

0000 

-93 



FTBYTF 

0003 

-96 



FTFSX 

000 1 

-94 



FTFSY 

0002 

-95 



FTF'TH 

0006 

-99 



FTF'TL 

0005 

-90 



FTYSIZ 

0004 

-97 



GO 

OOFD 

-506 



G 1 

00 7 E 

-518 



G 2 

003E 

-530 



G3 

00 1 F 

-542 



Iji 

00 OF 

-554 



G5 

0007 

-561 



G 6 

0003 

-565 



G7 

0001 

-567 



GS 

0000 

-568 



GAMSTB 

4FF8 

-634 



GFTDLT 

1001 

-908 

784 

91 1 

GETNIJM 

00 4 E 

-265 



GETPAR 

00 4 C 

-264 

663 

663 

GSO 

OOEE 

-507 



GS 1 

0077 

-519 



GS2 

003B 

-531 



GS3 

00 1 D 

-543 



GS4 

OOOE 

-555 



GSBEND 

0007 

-62 



GSBSCR 

0001 

-61 



GSBT I M 

0000 

-60 



GTM I NS 

4FEE 

-628 



GTSECS 

4FED 

-627 



HORAF 

000 F 

- 1 95 



HORCB 

0009 

-173 



HUMANE' 

0040 

-257 



I NCSCR 

0054 

-268 



I NDEXB 

005C 

-274 

728 

728 



812 

826 

826 

INDEXN 

0056 

-271 



INDEXW 

005 A 

-273 



INFBK 

00 OD 

- 1 86 



INI COL 

1 ooc 

-9 1 5 

684 


INLIN 

OOOF 

-188 



I NMOD 

OOOE 

-187 




782 78 

853 85 


CO K« 



I NTPC 

0000 

-216 

663 



736 

751 



853 

860 



908 

939 

INTP© 

0001 

—666 


INTST 

0008 

-193 


ITER4 

OEAA 

-733 

957 

ITER41 

0EB3 

-737 

776 

I TRET 

OEBA 

-742 

769 

KCTASC 

0040 

-258 


KEYO 

0014 

-206 


KEY 1 

0015 

-207 


KEY2 

0016 

-208 


KEYS 

0017 

-209 


KEYBO 

0E69 

-701 

762 

KEYB1 

0E8C 

-722 

740 

KEYMES 

0E65 

—696 

710 

KEYSEX 

4FE3 

-617 

757 

KLRKSX 

0E9C 

-732 

761 

KSCTRV 

0014 

-660 

752 

MAGIC 

OOOC 

-190 


MAI NLP 

0E58 

-693 

707 

MATH 

0056 

-270 


MCALL 

0006 

-219 


MENU 

004A 

-263 


MENUST 

0218 

-50 


MJUMP 

OOOA 

-221 


MOVE 

005E 

-275 

682 

MOVTMR 

0004 

-659 

704 

MRET 

0008 

-220 


MRFLOP 

0006 

-101 


MRLOCK 

4FF7 

—633 


MROR 

0004 

-103 


MRROT 

0002 

-105 


MRSHFT 

0003 

-106 


MRXOR 

0005 

-102 


MRXPNB 

0003 

-104 


MSKTD 

007E 

-291 

977 

MUZAK 

0012 

-228 


MUZ PC 

4FCE 

-596 


MUZSP 

4FD0 

-597 


MX SCR 

021 E 

-51 


NEGT 

0074 

-286 


NOGAME 

0235 

-53 


NOPLAY 

0228 

-52 

663 

NORMEM 

4000 

-39 

670 

NUMF'LY 

4FF3 

-631 

665 

NWHDWR 

0001 

-36 


0A1 

008F 

-576 


0A2 

0047 

-577 


0A3 

0023 

-578 


0A4 

0011 

-579 


0A5 

0008 

-580 


OBO 

OOFE 

-570 


OCO 

OOF 1 

-571 


0D1 

00D6 

-572 


0E1 

OOBF 

-573 



669 

669 

669 

710 

712 

728 

782 

805 

812 

826 

835 

838 

867 

875 

882 

889 

892 

900 

945 

948 

977 




959 

961 






970 


977 


764 952 



OF 1 

00B4 

-574 





OG 1 

00 AO 

-575 





OF'OTO 

4FDF 

-613 





OPOT 1 

4FE0 

-614 





0P0T2 

4FE 1 

-615 





OPOT 3 

4FE2 

-616 





OSWO 

4FE4 

-618 

782 

812 

853 


OSW 1 

4FE5 

-619 





GSW 2 

4FE6 

—620 





0SW3 

4FE7 

-621 





PI SOP 

4EF0 

—932 

674 

690 

763 

912 

P2SCP 

4F0E 

-933 

694 




P3SCP 

4F2C 

-934 

698 




P4SCP 

4F4A 

-935 

702 




PAWS 

0050 

-266 





PIZBRK 

0048 

-262 





POTO 

00 1 C 

-201 





POT 1 

00 1 D 

-202 





POT 2 

00 IE 

-203 





POT 3 

00 IF 

-204 





PRIOR 

4FF9 

-635 





PSWCY 

0000 

cr 





PSWPV 

0002 

-57 





PSWSGN 

0007 

-55 





F'SWZRO 

0006 

-56 





F'VGLAB 

4FD2 

-598 





F'VOLMC 

4FD3 

-599 





QUIT 

0078 

— 2 Q 8 





RANGED 

0076 

-287 

875 

875 

882 

882 



392 

900 

900 

908 

908 

RANSHT 

4FEF 

-630 





RCALL 

0004 

-218 





RECTAN 

00 1C 

-236 

33 3 

838 

939 

939 



948 





REL.AB1 

003 A 

-253 

860 

860 



RELABS 

0038 

-252 





RESTOR 

002E 

-245 

805 

805 



SAVE 

002 C 

-244 

867 

867 



SCCLR 

0 E 20 

-664 

723 




SCDOTB 

0 EA 1 

-735 

712 




SCHEDR 

OOOC: 

-224 





SCPSIZ 

00 IE 

-652 

675 

772 

964 

1 000 

SCRB3 

OFEF 

-898 

969 




SCREEN 

0000 

-41 





SOREST 

0EE5 

-765 

958 




SCROLL. 

0030 

-246 





SCRSAV 

0F2B 

-809 

967 




SCRSTK 

4EE8 

-926 

667 




SCRSTR 

00 1 6 

-232 





SCRUP1 

OEDA 

-758 

788 




SCRUF'D 

0EC4 

-749 

956 




SCRWR1 

OEFF 

-779 

868 




SCRWR2 

OF 1 A 

-796 

930 




SCRWRT 

0EF6 

-775 

960 




SCSADH 

00 1 D 

-657 

802 

860 



SCSADL 

00 1C 

-656 

803 

861 



SCSAVA 

0000 

-653 






889 


945 


1001 


889 892 


945 948 


1002 1003 



SC.TO 

OOOl 

-128 

760 

SCT 1 

0002 

-129 

761 

SCT2 

0003 

-130 


SCT3 

0004 

-131 


SC.T4 

0005 

-132 


SCT5 

0006 

-133 


SCT6 

0007 

-134 


SCT7 

0008 

-135 


SCXC 

001 A 

-654 

690 



858 

912 

SCYC 

00 IB 

-655 

790 

SEMI4S 

4FDE 

-612 


SENFLG 

4FFA 

-636 


SENTRY 

0042 

-259 

710 

SETE 

007A 

-289 

704 

SETOUT 

0016 

-233 

678 

SETW 

007C 

-290 

688 

SFO 

0009 

-136 


SF1 

OOOA 

-137 


SF2 

OOOB 

-138 


SF3 

OOOC 

-139 


SF4 

GOOD 

-140 


SF5 

OOOE 

-141 


SF6 

OOOF 

-142 


SF7 

0010 

-143 


SHIFTU 

0060 

-276 


SIZTEL 

0F26 

-801 

826 

SJO 

0015 

-152 


SJ1 

0017 

-154 


SJ2 

0019 

-156 


SJ3 

00 IB 

-158 


SKYD 

0013 

-145 

762 

SKYU 

0012 

-146 


SNDBX 

0018 

-184 


SNUL 

0000 

-127 


SPO 

001C 

-147 


SP1 

00 ID 

-148 


SP2 

00 IE 

-149 


SP3 

00 IF 

-150 


SSEC 

001 1 

-144 


STO 

0014 

-151 


ST1 

0016 

-153 


ST2 

0018 

-155 


ST3 

001 A 

-157 


STIMER 

0200 

-45 


STOREN 

0058 

-272 


STRDIS 

0034 

-249 


SUCK 

OOOC 

-222 


SWO 

0010 

-197 


SW1 

0011 

-198 


SW2 

0012 

-199 


SW3 

0013 

-200 


SYSRAM 

4FCE 

-639 


TIMOUT 

4FEC 

-626 

949 

TMR60 

4FEB 

-625 


TONEA 

0011 

-177 


TONEB 

0012 

-178 



694 

698 

702 

785 

789 

828 

794 

827 

857 




710 






692 

696 

700 






TO NEC 

0013 

-179 


TONMO 

OC) 1 0 

-176 


IJMARGT 

4FFB 

-637 


UP I 

STR 

GOOD 

-215 


IJSERTB 

4FFD 

-638 


VBE 

L.NK 

0006 

-87 


VBC 

CHK 

0004 

-84 


VBC 

H 

0003 

-83 


VBC 

L 

0002 

-82 


VBC 

LAT 

0003 

-91 


VBC 

LMT 

0000 

-89 


VBC 

REV 

000 1 

-90 


VBDCH 

000 1 

-81 


VBDCL 

0000 

-80 


VBDXH 

0004 

-68 


VBDXL 

0003 

-67 


VBDYH 

0009 

-73 


VBDYL 

0008 

-72 


V BLANK 

0028 

-242 


VBMR 

0000 

-64 


VBOAH 

00 OE 

-78 


VBOAL. 

OOOD 

-77 


VBS 

ACT 

0007 

-86 


VBC 

TAT 

000 1 

-65 


VBTIMB 

0002 

-66 


VBXCHK 

0007 

-71 


VBXH 

0006 

-70 


VBXL 

0005 

-69 


VBYCHK 

OOOC 

-76 


VBYH 

OOOB 

-75 


VBYL 

000 A 

-74 


VEC 

T 

003E 

-255 


VEC 

TC 

003C 

-254 


VERAF 

OOOE 

-194 


VERBL 

000 A 

-174 


V I BRA 

00 1 4 

- 1 80 


VOICES 

4FD4 

-600 


VOLAB 

00 1 6 

-181 


VOLC 

00 1 5 

-182 


VOLN 

0017 

- 1 83 


VWRITR 

00 IE 

-237 


WAS 

TE 

OFFF 

-585 


WAS 

TER 

OFFF 

-586 


WRIT 

0024 

-240 


WRITA 

0026 

-241 


WR I TP 

0022 

-239 


WRITE' 

0020 

-238 


X I NTC 

0002 

-217 

707 

XF'AND 

0019 

-191 


XF'NDON 

0001 

cr 


ZERO 1 

OFCF 

-884 


ZER02 

OFFD 

-905 

951 

ZEROF'L 

OF 50 

-822 

955 

ZF'O 

OF 63 

— 8 2 9 

877 

ZF'A 

OF 69 

— y y 2 

873 

ZF'B 

0F77 

-838 

887 

ZF'C 


0F7D 

-842 

903 



ZPD 

ZPSIZ 

ZPSTMR 


OF 9 3 

4EF3 

4EF0 


926 

997 


999 


-350 

-930 

-928 


897 

871 

870 



*MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
ADDR OBJECT STMT LABEL OPCD OPERAND COMMENT 


PAGE 


1 


DEF4X : 


WRECK 


LIST S, X, M, T 
NLIST I 

; ***************************** 
) * H V G CHECKMATE* 
; ***************************** 


; MACROS 

i 

MACR #A4Xj #B4X, #C4X. #D4X 

DEFB #A4X 

DEFB #B4X 

DEFB #C4X 

DEFB #D4X 

ENDM 

MACR 

DEFW 9. SHL. 8+32 
DEFB OOOOB 


ENDM 


EQUATES 


>0000 

665 

OLDWAY 

EQU 

1-NWHDWR 

1=D0 OLD WAY 0=D0 NEW WAY 

>0001 

666 

NEWWAY 

EQU 

1 -OLDWAY 

.OPPOSITE OF OLDWAY 


667 


; VARIOUS EQU'S 


>oooc 

668 

RLMOVE 

EQU 

1100B 

RIGHT AND LEFT MOVES 

>0003 

669 

UDMOVE 

EQU 

001 IB 

UP AND DOWN MOVES 

>0002 

670 

NGBIT 

EQU 

2 

# OF GAMES BIT 

>0003 

671 

NPBIT 

EQU 

3 

# PLAYERS BIT 

>0003 

672 

ANIMAX 

EQU 

3 

MAX # TICKS PER ANIMATION 

>009C 

673 

XMAX 

EQU 

( BYTEPL-1 ) *4 

MAX X COORD 

>0015 

674 

YLINES 

EQU 

21 

# VERT BLOCKS 

>000B 

675 

LOWY 

EQU 

11 

LOWEST Y COORD 

>005B 

676 

YMAX 

EQU 

( <YLINES-1 )*4)+L0WY ; MAX Y COORD 

>0000 

677 

LOWX 

EQU 

0 

LOWEST X COORD 

>0008 

678 

AMOVE 

EQU 

8H 

AN ARBITRARY MOVE 

>0009 

679 

MUSVOL 

EQU 

09H 

MUSIC VOLUME 

>0024 

680 

TDOPT 

EQU 

100100B 

TIME DISPLAY OPTIONS 

>0044 

681 

CDOPT 

EQU 

01000100B 

COUNT DOWN OPT 

>0010 

682 

WRITOR 

EQU 

01 OOOOB 

WRIT WITH MAGIC OR 


683 


i PLAYER PACKET OFFSETS 

>0000 

684 

LASTSW 

EQU 

0 

LAST SWITCH SETTING 

>0001 

685 

LASTMV 

EQU 

1 

LAST ACTUAL MOVE 

>0002 

686 

CURSW 

EQU 

2 

CURRENT SWITCH SETTING 

>0003 

687 

AROT 

EQU 

3 

ARROW ROTATION AMOUNT 

>0004 

688 

ARRX 

EQU 

4 

ARROW X COORD 

>0005 

689 

ARRY 

EQU 

5 

ARROW Y COORD 

>0006 

690 

PSTAT 

EQU 

6 

PLAYER STATUS 


691 


; PLAYER STATUS MASKS 

>0080 

692 

ACTIVE 

EQU 

80H 


>0040 

693 

HUMAN 

EQU 

40H 


>0007 

694 

ACTBIT 

EQU 

7 

1=ACTIVE 0=DEAD 

>0006 

695 

HUMBIT 

EQU 

6 

1=HUMAN 0=C0MPUTER 


696 


; SCREEN TABS 


>0028 

697 

XTAB1 

EQU 

< < BYTEPL/ 4 ) *4 

) 



PAGE 


* MOD COMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
ADDR OBJECT STMT LABEL OPCD OPERAND COMMENT 



>0050 

698 

XTAB2 

EQU 

X TAB 1*2 


> (_) (_) 7 y 

fz* 9 9 

XTAB3 

EQU 

XTAB1*3 


>00 1 4 

700 

YTAB 

EQU 

< < ( YLINES-1 )/4)*4) 

>00 IF 

701 

YTAB1 

EQU 

ytab+lowy 


>0033 

702 

YTAB2 

EQU 

( 2* YTAB ) +LOWY 


>0047 

703 

YTAB3 

EQU 

( 3*YTAB ) +LOWY 



704 


; OFF 

SETS FOR EACH 

-'LAYERS ROM DATA 

>0000 

705 

NOTEO 

EQU 

0 

EACH DIRECTIONS NOTES 

>0001 

706 

NOTE 1 

EQU 

1 


>0002 

707 

N0TE2 

EQU 

2 


>0003 

708 

NOTES 

EQU 

O 


>0004 

709 

F'F'ATL 

EQU 

4 

PLAYER PAT ADDR LOW 

>0005 

710 

PF'ATH 

EQU 

5 

PLAYER PAT ADDR HIGH 

>0006 

711 

F'CDOP 

EQU 

6 

PLAYER CHAR DISF' OPT 

>0007 

712 

F'SPOSX 

EQU 

7 

X COORD OF PLAYER SCORE 

>0008 

713 

PSPOSY 

EQU 

y 

Y COORD OF PLAYER SCORE 

>0009 

714 

F'SDOP 

EQU 

9 

PLAYER SCORE DISF' OPT 


715 


; MORE EQU "S 


>00F6 

716 

FORCEM 

EQU 

0F6H 

VAL TO FORCE RANDOM MOVE 

>0004 

717 

WIDTH 

EQU 

4H 

# PIXELS WIDE OF PLAYER PAT 

>0004 

718 

HEIGHT 

EQU 

4H 

# PIXELS HIGH OF PLAYER F'AT 

>0D20 

719 

ALLBYT 

EQU 

( YL I NES*4 ) *BYTEF'L ; ALL BYTES ON A SCREEN 

>4 1 B8 

720 

STARTS 

EQU 

< LOWY*BYTEPL ) +NORMEM ; LOWEST ADDR OF PLAY F I 

>000 1 

721 

F’ATXSZ 

EQU 

1 

#BYTES WIDE OF PLAYER PATTERN 

>0004 

722 

F'ATYSZ 

EQU 

4 

KBYTES HIGH OF PLAYER PATTERN 

>0104 

723 

PATDIM 

EQU 

F'ATXSZ. SHL. 8. 

DR. F'ATYSZ ; PATTERNS DIMENSIONS 

>000F 

724 

JUSJOY 

EQU 

OFH 

ONLY JOY STICK BITS 

>0008 

725 

CBLEN 

EQU 

8 

COLOR BLOCK LENGTH 

>0008 

726 

SBLEN 

EQU 

8 

SOUND BLOCK LENGTH 

>0000 

727 

WF'ONOF 

EQU 

0 


>0001 

728 

WF'OF'T 

EQU 

1 


>0002 

729 

WF'F'AL 

EQU 

2 


>0003 

730 

WPF'AH 

EQU 

“• 


>0005 

731 

WPXSIZ 

EQU 

CT 


>0004 

732 

WPYSIZ 

EQU 

4 



734 


i 




735 


/ 




736 


ORG 

N0RMEM+0F96H 

SHOULD BE EQUAL TO RSTART 


737 


; UNCLEARED RAM 


4F96 

738 

UNCRAM: 




4F96 

739 

CURSCR : 

DEFS 

12 

ALL CURRENT SCORES 


740 


; CLEARED RAM 


4FA2 

741 

CNOF'L . 

DEFS 

1 

CURRENT # PLAYERS 

4FA3 

742 

PLIX: 

DEFS 

1 

WHO IS CURRENT PLAYER 

4FA4 

743 

CNOHUM: 

DEFS 

1 

CURRENT # HUMANS 

4FA5 

744 

TARRX : 

DEFS 

1 

TEMP ARROW X COORD 

4FA6 

745 

TARRY: 

DEFS 

1 

TEMP ARROW Y COORD 

4FA7 

746 

RMASK : 

DEFS 

1 

ROTATE MASK 


747 

P PACKS : 



START OF PLAYER PACKETS 

4FA8 

748 

F'LAYO: 

DEFS 

PSTAT+1 


4FAF 

749 

PLAY 1 : 

DEFS 

F’STAT+1 


4FB6 

750 

PLAY2: 

DEFS 

PSTAT+1 


4FBD 

751 

PLAYS: 

DEFS 

PSTAT+ 1 


4FC4 

752 

ENBRAM: 




>4FA1 

753 

RSTART 

EQU 

BEGRAM- ( ENDRAf 

1— UNCRAM ) + 1 ; SHOULD BE RAM ST A 


754 


ORG 

1328H 




PAGE 


*MODC 

;omp Z -80 

CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 

ADDR 

OBJECT 

STMT LABEL 

OPCD OPERAND COMMENT 

1 328 


755 ONETIM: 




756 

; ONE TIME ONLY HOUSEKEEPING 

1 328 

31964F 

757 

LD SF'j UNCRAM 

1 32B 


758 

SYSSLIK GETF'AR 

1 32B 

FF 

758 + 

RST 56 

1 32 C 

4D 

758 + 

DEFB GETPAR+l 



758 + 

IF GETF'AR. EQ. I NTPC 



758 + 

END IF 

1 32 D 

3502 

759 

DEFW NOGAME 

1 32 F 

82 

760 

DEFB 82H 

1 330 

DC4F 

761 

DEFW CT7 

1 332 


762 

SYSSLIK GETF'AR 

1 332 

FF 

762 + 

RST 56 

1333 

4D 

762 + 

DEFB GETPAR+l 



762 + 

IF GETF'AR. EQ. I NTPC 



762 + 

END IF 

1 334 

2802 

763 

DEFW NOPLAY 

1 336 

01 

764 

DEFB 1 

1 337 

F34F 

765 

DEFW NUMBLY 

1 339 


766 

SYSSLIK FILL 

1339 

FF 

766 + 

RST 56 

1 33 A 

IB 

766 + 

DEFB FILL+1 



766 + 

IF FILL. EQ. I NTPC 



766 + 

END IF 

133B 

96 4 F 

767 

DEFW CURSOR 

1 33 D 

OCOO 

768 

DEFW 12 

1 33F 

00 

769 

DEFB 0 

1 340 


770 FI RE IT 




771 

i RE-ENTRY POINT FROM END OF GAME 

1340 

F3 

772 

D I 

1 34 1 

31964F 

773 

LD SP, UNCRAM 

1344 


774 

SYSTEM INTF'C 

1344 

FF 

774 + 

RST 56 

1 345 

00 

774 + 

DEFB INTF'C 



774 + 

IF INTF'C. EQ. INTF'C 

0001 


774 + 1 NTF'@ 

DEFL 1 



774 + 

END IF 



775 

; OUTPUT COLOR BLOCK 

1 346 


776 

DO COLSET 

1 346 

19 

776 + 

DEFB COLSET + 1 

1347 

AA17 

777 

DEFW CBLOCK 

1349 


778 

DO EMUS I C 

1349 

15 

778 + 

DEFB EMUSIC+1 



779 

; CLEAR JOY STICKS 

134A 


780 

DO FILL 

134 A 

IE 

780 + 

DEFB FILL+1 

134B 

E44F 

781 

DEFW OSWO 

134D 

0400 

782 

DEFW 4 

1 34 F 

00 

783 

DEFB 0 



784 

; CLEAR ALL RAM DATA 

1 350 


785 

DO FILL 

1 350 

IB 

785 + 

DEFB FILL+1 

1351 

A24F 

786 

DEFW CNOF'L 

1353 

2200 

787 

DEFW . RES. ( PLAY3+PST AT ) — CNOPL+ 1 

1355 

00 

788 

DEFB 0 

1356 


789 

DO SETOIJT 

1 356 

17 

789 + 

DEFB SETOUT+ 1 



* MOD CO MR Z-80 

CROSS 

: ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 

ADDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 

1 357 

BE 

790 


DEFB RES. < (YL.INES*4)+L0WY)*2 ; VER BLK 

1353 

40 

791 


DEFB 40H+0 ; HOR COL BND 

1 359 

08 

792 


DEFB OSH ; INTER MODE 



793 


i CLEAR SCORE BLOCKS 

1 35 A 


794 


DO RECTAN 

1 35 A 

ID 

794 

+ 

DEFB RECTAN+l 

1 35B 

0000 

795 


DEFW 0 

1 35 D 

AO OB 

796 


DEFW 11. SHL. 8+160 

1 35F 

55 

797 


DEFB 01010101 B 

1 360 


798 


DO RECTAN 

1 360 

ID 

798 

+ 

DEFB RECTAN+l 

1361 

8000 

799 


DEFW 0. SHL. 8+128 

1363 


800 


WRECK 

1 363 

2009 

800 

+ 

DEFW 9. SHL. 8+32 

1 365 

00 

800 

+ 

DEFB OOOOB * 

1366 


801 


DO RECTAN 

1 366 

ID 

801 

+ 

DEFB RECTAN+l 

1 367 

5800 

802 


DEFW 0. SHL. 8+88 

1 369 


803 


WRECK 

1 369 

2009 

803 

+ 

DEFW 9. SHL. 8+32 

1 36B 

00 

803 

+ 

DEFB OOOOB 

1 36C 


804 


DO RECTAN 

136C 

ID 

804 

+ 

DEFB RECTAN+l 

1 36D 

2800 

805 


DEFW 0. SHL. 8+40 

1 36F 


806 


WRECK 

1 36F 

2009 

806 

+ 

DEFW 9. SHL. 8+32 

1 37 1 

00 

306 

+ 

DEFB OOOOB 

1372 


807 


DO RECTAN 

1372 

ID 

807 

+ 

DEFB RECTAN+l 

1373 

0000 

808 


DEFW 0. SHL. 8+0 

1 375 


809 


WRECK 

1 375 

2009 

809 

+ 

DEFW 9. SHL. 8+32 

1377 

00 

809 

+ 

EiEFB OOOOB 

1 373 


8 1 0 


DO ACT I NT 

1 378 

OF 

810 


DEFB ACT I NT + 1 

1 379 


81 1 


EXIT 

1 379 

02 

81 1 

+ 

DEFB XINTC 

0000 


811 

+ INTF'@ 

DEFL 0 


• 

812 


; INITIALIZE STARTING ADDRESS OF ARROWS 

137 A 

212833 

813 


LD HL, . RES. ( YTAB2. SHL. 81+XTAB1 

1 37D 

22AC4F 

814 


LD ( PLAYO+ARRX ) , HL 

1380 

217833 

815 


LD HL, . RES. ( YTAB2. SHL. 8)+XTAE3 

1383 

22B34F 

816 


LD ( PLAY 1 +ARRX ) , HL 

1386 

2 150 IF 

817 


LD HL, . RES. ( YTAB1. SHL. S)+XTAB2 

1 389 

22BA4F 

818 


LD ( PLAY2+ARRX ) , HL 

1 38C 

215047 

Q 1 9 


LD HL, . RES. ( YTAB3. SHL. 8)+XTAB2 

1 38F 

22C14F 

820 


LD ( PLAY3+ARRX ) , HL 



821 


J CLEAR FIELD 

1 392 

CDB4 1 4 

y ~y 


CALL CLEARF 



y 2 3 


i DISPLAY # GAMES 

1395 

DD210D02 

824 


LD IX, FNTSML 

1399 


825 


SYSSUK DISNUM 

1 399 

FF 

825 

4- 

RST 56 

1 39A 

37 

825 

+ 

DEFB DISNUM+1 



825 

+ 

IF DISNUM. EQ. I NTPC 



825 

+ 

END IF 

1 39B 

4C 

826 


DEFB 76 



*MODCOMF' Z-SO CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 5 


ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

1 39C 

02 

327 


DEFB 2 

1 39 D 

24 

828 


DEFB TDOF'T 

1 39E 

42 

829 


DEFB 42H 

139F 

DC4F 

830 


BEFW CT7 

13A1 


831 

DONTD: 




832 


; GET # HUMANS 

13A1 

3AF34F 

833 


LD A, ( NUMF'LY ) 

1 3A4 

FE05 

834 


CP 5 

1 3A6 

3802 

835 


JR C, GOTNPL-* 

1 3 AS 

3E04 

336 


LD A, 4 

1 3AA 


837 

GOTNPL : 


1 3AA 

32A44F 

838 


LD ( CNOHUM ) , A 



839 


; GET # PLAYERS: 



840 


; IF HUMANS= 1 OR 0 OR > 4 THEN PLAYERS=4 EL 

1 SAD 

FE02 

841 


CP 2 

13AF 

3804 

842 


JR C, FPLAY-* 

13B1 

FE05 

843 


CP 5 

13B3 

3802 

844 


JR C. ALLHUM-* 

13B5 

3E04 

845 

FF'LAY : 

LD A, 4 

1 3B7 

32A24F 

846 

ALLHUM: 

LD ( CNOF'L ) , A 



847 


i INITIALIZE THE PLAYER PACKETS 



848 


; B=CURR # HUMANS 



849 


; C=CURR # PLAYERS 



850 


> D=THIS PLAYER # 

1 3BA 

3AA44F 

851 

INTIPP: 

LD A, (CNOHUM) 

1 3BD 

47 

852 


LD B, A 

1 3 BE 

3AA24F 

853 


LD A, (CNOF'L) 

13C1 

4F 

854 


LD C, A 

13C2 

1 600 

855 


LD D, 0 

1 3C4 

7A 

856 

GTPLIX: 

LD A, D 

13C5 

CD5C16 

857 


CALL LDF'LIX 

1 3C8 

C:5 

858 


PUSH BC 

13C9 

D5 

859 


PUSH DE 

1 3CA 

7A 

860 


LD A/ D 

1 3CB 

C631 

861 


ADD A. 31H ; SET UP ASCII LITERAL 

1 3CD 

DD5E04 

862 


LD E, (IX+ARRX) 

1 3D0 

DD5605 

863 


LD D, (IX+ARRY) 

13D3 

ID 

864 


DEC E 

13D4 

ID 

865 


DEC E 

13D5 

FD4E06 

866 


LD C, (IY+PCDOP) 

13D8 


867 


SYSTEM CHRDIS ; DISPLAY PLAYER# ON FIELD 

1 3D8 

FF 

867 

+ 

RST 56 

13D9 

32 

867 

+ 

DEFB CHRDIS 



367 

+ 

IF CHRDIS. EQ. INTPC 



867 

+ 

END IF 

13DA 

FD5E07 

868 


LD E< ( I Y+PSF'OSX ) 

13DD 

FD5608 

869 


LD D< < I Y+PSF'OSY ) 

1 3E0 

D5 

870 


PUSH DE 

13E1 


871 


SYSTEM CHRDIS ; DISPLAY# ON SCORE BLOCK 

13E1 

FF 

871 

+ 

RST 56 

1 3E2 


871 

+ 

DEFB CHRDIS 



871 

+ 

IF CHRDIS. EQ. INTPC 



871 

+ 

END IF 

1 3E3 

D1 

872 


POP DE 

1 3E4 

7B 

873 


LD A, E 

13E5 

C606 

874 


ADD A, 6 

13E7 

5F 

875 


LD E, A 



ttMODi 
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A DDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

1 3E8 

14 

876 


I NC 

D 

i 3E9 

14 

877 


INC 

D 

1 3EA 

0 1 0 1 04 

878 


LD 

BC, PATYSZ. SHL. 8 +PATXSZ 

1 3ED 

FD6605 

879 


LD 

H, < I Y+F’PATH ) 

1 3F0 

FD6E04 

880 


LD 

L, ( IY+PPATL) 

1 3F3 

3E10 

881 


LD 

A, 000 1 OOOOB 

1 3F5 


882 


SYSTEM WRIT ; WRIT PLAYER PAT IN SCORE 

13F5 

FF 

007 

+ 

RST 

56 

13F6 

24 

88.2 

+ 

DEFB 

WRIT 





IF 

WRIT EQ. I NTPC 



882 

+ 

END IF 

1 3F7 

D 1 

883 


POP 

DE 

1 S’F S 

D5 

884 


PUSH 

DE 

1 3F9 

DDES 

O o tr ( 


PUSH 

IX 

13FB 

/ { '' 

886 


LD 

A, D 

1 3FC 

0600 

887 


LD 

B, 0 

i 3FE 

4 A 

888 


LD 

C, D 

1 3FF 

21964F 

889 


LD 

HL, CURSOR 

1402 

09 

890 


ADD 

HL, BC 

1403 

09 

89 1 


ADD 

HL, BC 

1404 

09 

092 


ADD 

HL, BC 

1405 

CDE315 

893 


CALL 

DISPSC ; DISPLAY SCORES 

1 408 

DDE 1 

894 


POP 

IX 

140 A 

DJ. 

895 


POP 

DE 

14013 

Cl 

896 


POP 

BC 

1 40C 

AF 

897 


XOR 

A 

1 40D 

BO 

898 


OR 

B 

1 40E 

2809 

899 


JR 

Z/ NOTHUM-* 

1 4 1 0 

3 ECO 

900 


LD 

A/ ACTIVE+HUMAN 

1 4 1 2 

DD7706 

901 


LD 

< IX+PSTAT), A 

1 4 1 5 

05 

902 


DEC 

B 

1 4 1 & 

1 806 

903 


JR 

CKNOPL-* 

1 4 1 8 

00 

904 

CKSUM3 : 

DEFB 

0 ; 

1419 

3E80 

905 

NOT HUM: 

LD 

A/ ACTIVE 

14 IB 

DD7706 

906 


LD 

(IX+PSTAT), A 

1 4 1 E 

14 

907 

C KNURL : 

INC 

D 

1 4 1 F 

OD 

908 


DEC 

C 

1 420 

AF 

909 


XOR 

A 

1421 

B.1 

910 


OR 

C 

1422 

20 AO 

91 1 


JR 

NZ, GTPLIX-* 

1 424 

3E03 

912 


LD 

A, 3 

1 426 


913 

CDOWNL : 



1 426 

F5 

914 


PUSH 

AF 

1427 


915 


SYSSUK PAWS 

1427 

FF 

915 

+ 

RST 

56 

1428 

51 

9 1 5 


DEFB 

PAWS+ 1 



915 

+ 

IF 

PAWS. EQ. I NTPC 



915 

+ 

END IF 

1 429 

05 

916 


DEFB 

5 

1 42A 

32A34F 

917 


LD 

(PLIX), A 

1 42D 

CD9 1 1 4 

918 


CALL 

UPMUZK ; MAKE SOUND FOR COUNT DOWN 

1430 

FI 

919 


POP 

AF 

1431 

F5 

920 


PUSH 

AF 

1432 

C630 

921 


ADD 

A, 30H 

1 434 


922 


XYRELL DE, (XTAB2-4),. RES. ( YTAB2-4 ) 

1 434 

00000000 

922 

+ 

LD 

DE, . RES. (. RES. (YTAB2-4) ). SHL. 8+< ( XTAB2- 

1 438 

0E44 

923 


LD 

C, CD OPT 
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ADDR 

OBJECT 

STMT LABEL 

OF'CD OPERAND COMMENT 

143 A 


924 

SYSTEM CHRDIS ; DISPLAY COUNT DOWN # 

1 43 A 

FF 

924 + 

RST 56 

1 43B 

32 

924 + 

DEFB CHRDIS 



924 + 

IF CHRDIS. EQ. I NTPC 



924 + 

END IF 

1 43C 


925 

SYSSUK PAWS 

1 43C 

FF 

925 + 

RST 56 

14 3D 

51 

925 + 

DEFB F'AWS+1 



925 + 

IF PAWS. EQ. I NTPC 



925 + 

END IF 

1 43E 

~t 

926 

DEFB 40 

1 43F 


927 

SYSTEM EMUS I C 

1 43F 

FF 

927 + 

RST 56 

1440 

14 

927 + 

DEFB EMUS I C 



927 + 

IF EMUS I C. EQ. I NTPC 



927 + 

END I F 

1441 

FI 

928 

POP AF 

1442 

3D 

929 

DEC A 

1443 

20E 1 

930 

JR NZ,CDOWNL~* 

1445 

CDB414 

931 

CALL CLEARF 



932 

, I NIT TICK COUNT 

1448 

CD4A16 

933 

CALL TICK IT 

144B 

AF 

934 

XOR A 

1 44C 

32DD4F 

935 

LD < CNT ) , A 

1 44F 


936 LOOPY: 


1 44F 


937 

SYSSUK SENTRY 

1 44F 

FF 

937 + 

RST 56 

1 450 

43 

937 + 

DEFB SENTRY+ 1 



937 + 

IF SENTRY EQ. I NTPC 



937 + 

END IF 

1451 

1 402 

938 

DEFW ALKEYS 

1 453 


939 

SYSSUK DOIT 

1 453 

FF 

939 + 

RST 56 

1454 

45 

939 + 

DEFB DOIT+1 



939 + 

IF DOIT. EQ. I NTPC 



939 + 

END IF 

1455 

5914 

940 

DEFW THETBL 

1457 

18F6 

941 

JR LOOPY-* 

1459 


942 THETBL: 

RC SCTO, ACTION 

1 459 

41 

942 + 

DEFB SCT0+40H 

1 45A 

6C14 

942 + 

DEFW ACTION 



942 + 

IF 0 



942 + 

END IF 

1 45C 


943 

RC SJO, MOV JOY 

1 45 C 

55 

943 + 

DEFB SJ0+40H 

1 45D 

84 1 4 

9 43 + 

DEFW MOV JOY 



943 + 

IF 0 



943 + 

END IF 

1 45F 


944 

RC S J 1 , MOV JOY 

1 45F 

57 

944 + 

DEFB SJ1+40H 

1 460 

84 1 4 

944 + 

DEFW MOV JOY 



944 + 

IF 0 



944 + 

END IF 

1 462 


945 

RC SJ2» MOV JOY 

1462 

59 

945 + 

DEFB SJ2+40H 

1 463 

84 1 4 

945 + 

DEFW MOV JOY 



945 + 

IF 0 
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A DDR 

OBJECT 

STMT 

LABEL 

OF' CD OPERAND COMMENT 



945 


END IF 

1465 


946 


RC SJ3, MOV JOY 

1 465 

5B 

946 

+ 

DEFB SJ3+40H 

1466 

84 1 4 

946 

+ 

DEFW MOV JOY 



946 

+ 

IF 0 



946 

+ 

END IF 

1468 


947 


RC SKYD* CALF' I Z. +END 

1 468 

cr 

947 


DEFB SKYD+40H 

1 469 

SB 1 4 

947 

+ 

DEFW CALF' I Z 



947 

+ 

IF O+END 

1 46B 

CO 

947 

+ 

DEFB O+END 



947 

+ 

END IF 

1 46 C 


948 

ACTION: 


1 46C 

CD4A 1 6 

949 


CALL TICK IT 



950 


; INCREMENT THE CURRENT PLAYER INDEX BY 1 UNTIL 



951 


; AN ACTIVE PLAYER IS FOUND THEN UPDATE HIM 

1 46F 

3AA34F 

952 

I NC I X : 

LD A, < F'L I X ) 

1472 

3C 

953 


I NC A 

1473 

E603 

954 


AND OSH 

1475 

32A34F 

955 


LD (PL IX). A ; CIJRR PLAYER IXOCURR F'L IX + 1 M 

1 478 

CD5C16 

956 


CALL LDF'LIX 

14715 

DDCB067E 

957 


BIT ACTBIT. (IX+F'STAT) ; TEST FOR ACTIVE PLAYER 

1 47F 

28EE 

958 


JR Z. I NCI X-* 

1481 

C3BC14 

959 


JP MOVE IT ; THE MAJOR EVENT 

1484 


960 

MOV JOY: 


1 484 

D615 

961 


SUB SJO ; TAKE OFF WHATEVER 

1 486 

CB3F 

962 


SRL A , DIV BY 2 

1 488 

C31E16 

963 


JP STALL 

1 48E 


964 

CALF I Z : 


1 4 SB 

CD4A16 

965 


CALL TICK IT 

1 48E 


966 


SYSTEM PIZBRK 

148E 

FF 

966 

+ 

RST 56 

1 48F 

48 

966 

+ 

DEFB PIZBRK 



966 

+ 

IF PIZBRK EQ. I NTPC 



966 

+ 

END IF 

1 490 

C9 

967 


RET 

1491 

3 A A3 4 F 

968 

UPMUZK: 

LD A, (F'LIX) 

1494 

CD5C 1 6 

969 


CALL LDF'LIY 

1 497 

DD7E03 

970 


LD A. < I X+AROT ) 

1 49 A 

0603 

971 


LD B, 3 

1 49C 


972 

TSTBIT: 


1 49C 

OF 

973 


RRCA 

1 49D 

3802 

974 


JR C, GOTBIT-* 

1 49F 

1 OFB 

975 


DJNZ TSTBIT-* 

14A1 


976 

GOTBIT: 


1 4A1 

48 

977 


LD C. B 

1 4A2 

0600 

978 


LD B, 0 

1 4A4 

FD09 

979 


ADD IY, BC 

1 4A6 

FD7E00 

980 


LD A/ < IY+O) 

1 4A9 

D313 

98 1 


OUT ( TONEC ) , A 

14AB 

3E09 

982 


LD A, MUSVOL 

1 4AD 

D315 

983 


OUT < VOLC ) , A 

1 4AF 

3E 1 1 

984 


LD A, 0A4 

14B1 

D310 

985 


OUT < TONMO ) , A 

1 4B3 

C9 

986 


RET 

1 4B4 


987 

CLEARF: 




; CLEAR FIELD 
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*MUDC 
A DDR 

1 4D4 
14B4 
1 4B5 


1 4B6 
1 4B8 
14BA 
1 4BB 
1 4BC 


1 4BC 
1 4BF 
1 4C2 
1 4C6 
1 4C8 
1 4C9 
1 4CA 
1 4CB 
14CC 
1 4CD 
1 4CF 
14 DO 
1 4D3 
1 4D4 
1 4D5 
1 4D7 
14D9 
14 DC 

1 4 DC 
1 4DF 
1 4E2 

1 4E4 
1 4E7 
1 4E9 

1 4EA 
1 4ED 
1 4EF 

14F2 
14F5 
1 4F7 

14F7 
14FA 
1 4FD 
1 500 
1 503 
1 506 
1509 
1 50C 

1 5 OF 
151 1 
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OBJECT 

STMT 

LABEL 

OP CD 

OPERAND COMMENT 


989 


SYSSUK FILL 

FF 

989 

+ 

RST 

56 

IB 

989 

+ 

DEFB 

FILL+1 


989 

+ 

IF 

FILL. EQ. I NTPC 


989 

+ 

END IF 

B84 1 

990 


DEFW 

STARTS 

200 D 

991 


DEFW 

ALLBYT 

00 

992 


DEFB 

0 

C9 

993 


RET 



994 

MOVE I T : 




995 


; THI 

3 ROUTINE UPDATES A PLAYER'S POSITION 


996 


; INPUT PARAS ARE: IX=POINTER TO PLAYERS PACKET 


997 


; DURING ROUTINE B=CURRENT SWITCH C-LAST SWITCH 

DD4E00 

998 


LD 

C, ( I X+LASTSW ) 

DD4602 

999 


LD 

B, ( I X+CURSW ) 

DDCB0676 

1 000 


BIT 

HUME: IT, ( IX+PSTAT) 

2003 

1001 


JR 

NZ.NOCUR-* ; IF NOT HUMAN 

AF 

1002 

ZSW: 

XOR 

A ; CLEAR A 

47 

1 003 


LD 

B, A ; CLEAR CURRENT SWITCH 

4F 

1 004 


LD 

C, A ; CLEAR LAST SW END IF 

78 

1005 

NOCUR : 

LD 

A, B ; IF CURR SW = 0 

B7 

1 006 


OR 

A 

2001 

1 007 


JR 

NZ, RANTST-* 

41 

1 008 


LD 

B, C ; THEN CURR SW C-LAST SW END IF 

DD7000 

1 009 

RANTST : 

LD 

< I X+LASTSW ), B ; SAVE LAST SW 

78 

1 0 1 0 


LD 

A, B i IF CURR SW=0 

B7 

101 1 


OR 

A 

2005 

1012 


JR 

NZ, GGTSW-* 

OEOO 

1013 


LD 

C, 0 , LAST SWC-0 

CD7F16 

1014 

1015 

GOTSW: 

CALL 

RANMOV ; GET RANDOM MOVE END IF 

DD7E01 

1016 


LD 

A, < I X+LASTMV ) ; GET LAST MOVE 

CDAC16 

1017 


CALL 

MOVTST 

2813 

1018 


JR 

Z, GOTMOV-* 


1019 



; ANY MOVE AND CURR SW 

CD A A 1 6 

1 020 


CALL 

MOVANY 

280E 

1021 


JR 

Z, GOTMOV-* 

41 

1022 


LD 

B, C ; TRY LAST SWITCH 


1023 



; ANY MOVE 

CDAA16 

1024 


CALL 

MOVANY 

2808 

1 025 


JR 

Z, GOTMOV-* 

DD4601 

1026 


LD 

B, < I X+LASTMV) ; TRY LAST MOVE 


1027 



; ANY MOVE 

CDAA16 

1 028 


CALL 

MOVANY 

203C 

1029 

1030 

GOTMOV: 

JR 

NZ, CRASH-* ; 


1 03 1 


i A LEGIT MOVE HAS BEEN FOUND SO UPDATE THE GUY 

DD7701 

1032 


LD 

< I X+LASTMV) , A , SAVE ACTUAL MOVE FOR LATER 

DD7703 

1033 


LD 

< I X+AROT ) , A ; ARROW ROTATION AMOUNTC-THE MOV 

DD5605 

1034 


LD 

D, < IX+ARRY) 

DD5E04 

1 035 


LD 

E, < IX+ARRX) 

CD2515 

1 036 


CALL 

ERASE 

FD6605 

1037 


LD 

H, < IY+F'PATH) 

FD6E04 

1038 


LD 

L, < I Y+PF'ATL ) 

010104 

1039 


LD 

BC, PATYSZ. SHL. 3+PATXSZ 

3E10 

1040 


LD 

A, WRITOR 


1041 


SYSTEM WRIT ; WRITE PLAYER PATTERN OVER ARRO 
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*M0DC0MP Z -80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


AD DR 

OBJECT 

STMT 

LABEL 

GF'CD OPERAND COMMENT 

151 1 

FF 

1 04 1 

+ 

RST 56 

1512 

24 

1041 

+ 

DEFB WRIT 



1 04 1 

+ 

IF WRIT. EQ. I NTPC 



1041 

+ 

END IF 

1513 

3AA54F 

1 042 


LD A, ( TARRX ) 

1516 

DD7704 

1043 


LD ( I X+ARRX ) , A i SAVE NEW ARROW X 

1519 

3AA64F 

1044 


L.D A, (TARRY) 

151 C 

DD7705 

1045 


LD < I X+ARRY ) , A » SAVE NEW ARROW Y 

15 IF 

CD0016 

1046 


CALL ANIARR ; ANIMATE THE ARROW 

1522 

C391 14 

1047 


JP UPMUZK 

1525 


1 048 

ERASE: 


1525 

D5 

1049 


PUSH DE 

1526 


1 050 


SYSSUK RELAB 1 

1 526 

FF 

1 050 

+ 

RST 56 

1527 

3B 

1 050 

+ 

DEFB RELAB1+1 



1050 

+ 

IF RELAB 1. EQ. INTPC 



1 050 

+ 

END IF 

1528 

00 

1 05 1 


DEFB 0 

1529 

EB 

1052 


EX DE/ HL 

1 52A 

0600 

1053 


LD B. 0 

1 52C 

110104 

1 054 


LD DE/ F'ATYSZ. SHL. 8+PATXSZ 

152F 


1055 


SYSTEM BLANK 

152F 

FF 

1 055 

+ 

RST 56 

1530 

2A 

1 055 

+ 

DEFB BLANK 



1055 

+ 

IF BLANK. EQ. INTPC 



1 055 


END IF 

1531 

Di 

1 056 


POP DE 

1 532 

C9 

1057 


RET 

1 533 


1 058 

CRASH: 




1059 


> A PLAYER HAS CRASHED. DESTROY HIS ARROW AND ELIM 



1 060 


; HIM FROM THE GAME. 

1 533 

016D17 

1061 


LD BCz EXPATS 

1 536 

118117 

1062 


LD DE, EXCOLS ; DEC-EX F'LODE COLOR TABLE ADDR 

1 539 

3 EOS 

1 063 


LD A, 5 

1 53B 

21B217 

1 064 


LD HL/ EXPSND 

153E 

F5 

1 065 

EX LOOP: 

PUSH AF / PUSH LOOP COUNT 

1 53F 

C5 

1 066 


PUSH BC ; PUSH EXT PAT ADDR 

1540 

D5 

1 067 


PUSH DE ■, PUSH EXPLODE COLOR TBL ADDR 

1541 

E5 

1 068 


PUSH HL ; PUSH EXPLODE SOUND ADDR 

1542 

1A 

1069 


LD A, (DE) > AC-EXPLODE COLOR 

1543 

D300 

1070 


OUT ( COLOR ) / A 

1545 

C5 

1071 


PUSH BC 

1546 

DD5605 

1072 


LD D, ( I X+ARRY) 

1549 

DD5E04 

1073 


LD E, (I X+ARRX) 

154C 

CD2515 

1074 


CALL ERASE 

154F 

El 

1075 


POP HL ; PAT ADDR 

1550 

3E10 

1076 


LD A/WRITOR 

1552 

0 1 0 1 04 

1077 


LD BC, PATYSZ. SHL. 8+PATXSZ 

1 555 


1078 


SYSTEM WRIT ; WRIT EXPLOSION 

1 555 

FF 

1078 

+ 

RST 56 

1556 

24 

1078 

+ 

DEFB WRIT 



1078 

+ 

IF WRIT. EQ. INTPC 



1 078 

+ 

END IF 

1557 


1079 


SYSSUK PAWS 

1557 

FF 

1 079 

+ 

RST 56 

1558 

51 

1079 

+ 

DEFB F'AWS+1 



1079 

+ 

IF PAWS. EQ. INTPC 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 



1079 

+ 

END IF 

1559 

07 

1 080 


DEFB 

7 

1 55A 

El 

1081 


POP 

HL ; GET EXPLODE SOUND ADDR 

155B 

01 1808 

1082 


LD 

BC, SBLEN. SHL. 8+SNDBX 

155E 

EDE3 

1083 


OTIR 


1 560 

D1 

1084 


POP 

DE 

1561 

Cl 

1085 


POP 

BC 

1562 

FI 

1086 


POP 

AF 

1 563 

3D 

1087 


DEC 

A 

1 564 

2807 

1 088 


JR 

Z.EXF'FIN-* ; LOOP COUNT EXPIRED 

1566 

13 

1089 


INC 

DE ; INC TO NEXT COLOR 

1567 

03 

1090 


INC 

EC ; BUMP UP TO NEXT PAT ADDR 

1 568 

03 

1091 


INC 

BC 

1569 

03 

1 092 


INC 

BC 

1 56A 

03 

1093 


INC 

BC 

1 568 

1 3D 1 

1094 


JR 

EXLOOF'-* 

1 56D 


1095 

EXF’FIN: 



1 56D 

FD5605 

1096 


LD 

D, ( I Y+PPATH ) 

1 570 

FD5E04 

1097 


LD 

E, (IY+PF'ATL) i DEC-PLAYER PAT ADDR 

1573 

FD2 1 0000 

1 098 


LD 

IY, 0 

1577 

FD19 

1 099 


ADD 

IY, DE j IYC-PLAYER PAT ADDR 

1579 

110004 

1100 


LD 

DE, 4. SHL. 8+0 ; DC-LOOF' COUNT 

157C 

FD7E00 

1101 

STOMP: 

LD 

A, (IY+O) i AC-BYTE OF PLAYER PATTERN 

157F 

218841 

1 102 


LD 

HL, STARTS 

1582 

01200D 

1 103 


LD 

BC, ALLBYT 

1585 

EDB1 

1 104 

STLOOP: 

CF'IR 


1587 

2005 

1 105 


JR 

NZ, RESTOM-* 

1 589 

03 

1106 


INC 

BC 

158A 

2E 

1107 


DEC 

HL 

1588 

73 

1 108 


LD 

(HL), E 

158C 

18F7 

1109 


JR 

STLOOP-* 

158E 

FD23 

1110 

RESTOM: 

INC 

IY 

1 590 

15 

1111 


DEC 

D 

1591 

20E9 

1112 


JR 

NZ, STOMP-* 

1593 

DDCB0676 

1113 


BIT 

HUMBIT, ( IX+PSTAT) ; 

1597 

2804 

1 114 


JR 

Z, KILLST-* i IF HUMAN 

1599 

21A44F 

1115 


LD 

HL, CNOHUM 

1 59 C 

35 

1116 


DEC 

(HL) ; DEC CURRENT # HUMANS END IF 

159D 

DDCB06BE 

1117 

KILLST: 

RES 

ACTBIT, ( IX+PSTAT) ; KILL STATUS 



1118 


i INC 

ALL ACTIVE PLAYERS SCORES 

1 5A1 

0E04 

1 1 19 


LD 

C, 4 

1 5A3 


1 120 

EUMF'EM: 



1 5 A3 

OD 

1121 


DEC 

C 

1 5A4 

79 

1122 


LD 

A, C 

15A5 

CD5C16 

1123 


CALL 

LDPLIX 

1 5A8 

DDCE067E 

1 124 


BIT 

ACTBIT, (IX+PSTAT) 

15AC 

2818 

1125 


JR 

Z, BUMPCK-* 

15AE 

0600 

1126 


LD 

B, 0 

1580 

C5 

1127 


PUSH 

BC 

1581 

79 

1 128 


LD 

A, C 

1582 

21964F 

1 129 


LD 

HL, CURSOR 

1585 

09 

1 130 


ADD 

HL, BC 

1586 

09 

1131 


ADD 

HL, BC 

1587 

09 

1132 


ADD 

HL, BC 

1588 

37 

1133 


SCF 


1589 

CDE315 

1134 


CALL 

DISPSC 

1 SBC 

Cl 

1 135 


POP 

BC 
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:0MP Z-SO 

CROSS 

ASSEMBLER* HOME VIDEO GAME 

SYSTEM PAGE 

A DDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND C 

OMMENT 

1 5 ED 


1 1 36 


SYSTEM INCSCR 


15ED 

FF 

1 1 36 

+ 

RST 

56 


1 SEE 

54 

1 1 36 

+ 

DEFB 

I NCSCR 




1 1 36 

+ 

IF 

INCSCR. EQ. I NTPC 



1 1 36 

+ 

END IF 


1 5EF 

79 

1 1 37 


LD 

A, C 


1 SCO 

C5 

1 1 38 


PUSH 

BC 


1 SC 1 

B7 

1 1 39 


OR 

A ; 

RESET CARRY 

ISC 2 

COE 3 1 5 

1140 


CALL 

DISPSC 


1 SC 5 

Cl 

1141 


POP 

BC 


1 SC 6 


1142 

BUliPCK: 




15C6 


1143 


SYSS 

UK PAWS 


1 SC 6 

FF 

1 1 43 

+ 

RST 

56 


1 SC 7 

51 

1143 

+ 

DEFB 

PAWS+ 1 




1143 

+ 

IF 

PAWS. EQ. INTF'C 




1143 

+ 

END IF 


15C8 

IE 

1144 


DEFB 

30 


1 SC 9 

79 

1145 


LD 

A, C 


ISC A 

B7 

1 1 46 


OR 

A 


15CE 

20 D6 

1147 


JR 

NZ, BUMPEM-* 




1148 


i DEC 

CURR # PLAYERS 




1 149 


; IF 

CIJRR # PLAYERS 

LEQ 1 GO TO END G 

1 5CD 

21A24F 

1 1 50 


LD 

HL, CNOPL 


1 5 DO 

35 

1151 


DEC 

(HL) 


1SD1 

35 

1152 


DEC 

(HL) 


15D2 

2802 

1 153 


JR 

Z, ENDCHK-* 


15D4 

34 

1154 


INC 

(HL) 


1 5D5 

C9 

1155 


RET 



1 5D6 


1156 

ENDCHK : 




15D6 

3 ADC 4 F 

1 157 


LD 

A, ( CT7 ) 


1 5D9 

3D 

1 1 58 


DEC 

A 


1 5DA 

27 

1 159 


DAA 



1 5DE 

3 2 DC 4 F 

1 1 60 


LD 

( CT7 ) , A 


15DE 

C24013 

1 161 


JP 

NZ, FIREIT 


15E1 


1162 


SYSTEM QUIT 


15E1 

FF 

1 162 

+ 

RST 

56 


15E2 

78 

1 162 

+ 

DEFB 

QUIT 




1162 

+ 

IF 

QUIT. EQ. INTF'C 




1 1 62 

+ 

END IF 


15E3 


1 163 

DISPSC: 






1 1 64 


; DIS 

PLAY SCORE 




1165 


; A=PLAYER# 




1 166 


; HL- 

>LAST BYTE OF S 

CORE 

15E3 

FD4E09 

1167 


LD 

C, ( IY+PSDOP) 


15E6 

3004 

1 168 


JR 

NC, NOTXOR-* 


15ES 

CBA 1 

1 169 


RES 

MROR, C 


1 SEA 

CEE 9 

1170 


SET 

MRXOR, C 


15EC 


1171 

NOT X OR: 




15EC 

FDSE07 

1 1 72 


LD 

E, (IY+PSPOSX) 


15EF 

FD5608 

1173 


LD 

D, ( I Y+PSPOSY ) 


1 5F2 

3E0C 

1174 


LD 

A, 12 


1 5F4 

tf3 

1 175 


ADD 

A, E 


15F5 

SF 

1176 


LD 

E, A 


15F6 

14 

1177 


INC 

D 


15F7 

0643 

1178 


LD 

B, 43 H 


15F9 

DD210D02 

1179 


LD 

IX, FNTSML 


1 5FD 


1 1 80 


SYSTEM DISNUM 




PAGE 13 


*MOD< 

'OMR Z-80 

CROS: 

S ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 13 

AD DR 

OBJECT 

STMT 

LABEL 

OP CD 

OPERAND COMMENT 

15FD 

FF 

1 180 

+ 

RST 

56 

15FE 

36 

1 1 80 

+ 

DEFB 

DISNUM 



1 180 

+ 

IF 

DISNUM. EG). I NTPC 



1 1 80 

+ 

END IF 

1 5FF 

C9 

1181 


RET 


1 600 


1 1 82 

ANIARR: 





1 1 83 


; ANIMATE THE ARROW 



1 184 


; INPUT AND OUTPUT IS IX WHO STAYS THE SAME 



1 185 


; DESTROYS ALL OTHER REGISTERS 

1600 

DDCB067E 

1186 


BIT 

ACTBIT, ( I X+PSTAT ) 

1 604 

08 

1187 


RET 

Z ; EXIT IF NOT ACTIVE 

1605 

DD7E03 

1 1 88 


LD 

A, ( IX+AROT) 

1608 

CD2F 1 7 

1 1 89 


CALL 

GETROT , ; HLOARROW PAT ADDR 

1 60 B 

DD5605 

1 1 90 


LD 

D, ( IX+ARRY) 

1 60 E 

DD5E04 

1191 


LD 

E, < IX+ARRX ) 

161 1 

E5 

1 1 92 


PUSH 

HL 

1612 

CD2515 

1 1 93 


CALL 

ERASE 

1615 

El 

1194 


POP 

HL 

1616 

0 1 0 1 04 

1 1 95 


LD 

BC, F'ATYSZ. SHL. 8+F'ATXSZ 

1619 

3E10 

1 1 96 


LD 

A, WRITOR 

1 6 1 B 


1 197 


SYSTEM WRIT 

161B 

FF 

1 197 

+ 

RST 

56 

161 C 

24 

1197 

+ 

DEFB 

WRIT 



1197 

+ 

IF 

WRIT. EQ. I NTPC 



1 1 97 

+ 

END IF 

1 6 1 D 

C9 

1 1 98 


RET 


1 6 1 E 


1 1 99 

STALL: 





1 200 


; THIS 

> ROUTINE TAKES CARE OF ARROW ANIMATION 



1201 


i AND 

SHOWING A PLAYER HIS CURRENT JOY STICK POSIT 



1 202 


;A=WHICH PLAYER: 



1 203 


; B=JOY STICK BITS 

161 E 

CD5C16 

1 204 


CALL 

LDPLIX ; I XC-ADDR OF PLAYER PACKET 

1621 

AF 

1 205 


XOR 

A 

1 622 

BO 

1206 


OR 

B 

1623 

2003 

1207 


JR 

NZ, STORIT-* 

1 625 

DD7E02 

1 208 


LD 

A, ( I X+CURSW ) 

1 628 

DD7702 

1 209 

STORIT: 

LD 

< I X+CURSW), A 

162B 

DDAE01 

1210 


XOR 

( I X+LASTMV ) ; AC-DIFFERENCE FROM LAST MOVE 

162E 

2812 

121 1 


JR 

Z> GETLM-* ; IF DIFFERENCES USE LAST MOVE 

1630 

EEOC 

1212 


XOR 

RLMOVE 

1632 

280E 

1213 


JR 

Z, GETLM-* 

1634 

EEOC 

1214 


XOR 

RLMOVE 

1 636 

EE03 

1215 


XOR 

UDMOVE 

1 638 

2808 

1216 


JR 

Z, GETLM-* 

1 63A 

EE03 

1217 


XOR 

UDMOVE 

163C 

DDCB0676 

1218 

HUMCHK : 

BIT 

HUMBIT, < I X+PSTAT) 

1640 

2003 

1219 


JR 

NZ.GOTIT-* ; IF HUMAN WE'VE GOT IT 

1642 

DD7E0 1 

1220 

GETLM: 

LD 

A, < I X+LASTMV ) i GET LAST MOVE 

1645 

DD7703 

1221 

GOT I T : 

LD 

(IX+AROT), A ; STORE ARROW ROTATION 

1 648 

18B6 

1222 


JR 

ANIARR-* 

164A 


1 2.23 

TICKIT: 





1224 


, TICk 

: CGUNTC— < 8-CURR # PLAYERS) 

1 64A 

3AA44F 

1 225 


LD 

A, ( C'NOHUM ) 

164D 

B7 

1226 


OR 

A 

1 64E 

3E02 

1227 


LD 

A, 2 

1 650 

2806 

1 "2.2.3 


JR 

Z, STICK-* 

1 652 

21A24F 

1229 


LD 

HL, CNOPL 



*modc 

:0MF Z-80 

CROSS 

ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 14 

ADDR 

OBJECT 

STMT 

LABEL 

OF CD OPERAND COMMENT 

1 655 

3 EOS 

1 230 


LD A, 8 

1 657 

96 

1231 


SUB ( HL ) 

1 658 

32D54F 

1 232 

ST I CK : 

LD (CTO) j A 

1 65E 

C9 

1 233 


RET 

1 65C 


1234 

LDPLIX: 


1 65C 


1 235 

LDPLIY: 




1 236 


; LOAD IY WITH POINTER TO CURR PLAYER ROM DATA 



1 237 


; LOAD IX WITH A POINTER TO CURRENT PLAYER PACKET 



1238 


; A=F'LAYER# MUST BE GEQ 0 ?■< LEQ 3 

1 65C 

D5 

1239 


PUSH DE 

1 65D 

E5 

1240 


PUSH HL 

1 65E 


1241 


SYSSUK INDEXW 

1 65E 

FF 

1241 

+ 

RST 56 

1 65F 

5B 

1241 

4 

DEFB INDEXW+1 



1241 

4- 

IF INDEXW. EC!. I NTPC 



1241 

4- 

END IF 

1 660 

6F 1 6 

1242 


DEFW ROMTBL 

1 662 

D5 

1243 


PUSH DE 

1663 

FOE 1 

1244 


POP IY 

1 665 


1245 


SYSSUK INDEXW 

1 665 

FF 

1245 

4- 

RST 56 

1 666 

5B 

1245 

+ 

DEFB INDEXW+1 



1245 

4- 

IF INDEXW. EQ. I NTPC 



1245 

4- 

END IF 

1 667 

7716 

1246 


DEFW RAMTBL 

1 669 

D5 

1247 


PUSH DE 

1 66A 

DDE 1 

1248 


POP I X 

1 66 C 

El 

1249 


POP HL 

1 66D 

D1 

1 250 


POP DE 

1 66E 

C9 

1251 


RET 

1 66F 

4517 

1252 

ROMTBL: 

DEFW PLROMO 

1 67 1 

4F17 

1253 


DEFW F'LROMl 

1673 

5917 

1254 


DEFW PLR0M2 

1 675 

6317 

1 255 


DEFW PL ROM 3 

1677 

A84F 

1256 

RAMTBL: 

DEFW PLAYO 

1 679 

AF4F 

1257 


DEFW PLAY 1 

1 67 B 

B64F 

1 258 


DEFW PLAY2 

1 67 D 

BD4F 

1259 


DEFW PLAYS 

1 67F 


1260 

RANMOV: 




1261 


; GENERATE A RANDOM MOVE FOR THE PLAYER PACKET POI 



1262 


, INPUT AND OUTPUT: 



1 263 


; B=CURRENT SWITCH C=LAST SWITCH 

1 67F 


1264 


SYSSUK RANGED 

1 67F 

FF 

1 264 

+ 

RST 56 

1 680 

77 

1264 

4- 

DEFB RANGED+1 



1264 

4- 

IF RANGED EQ. I NTPC 



1264 

4- 

END IF 

1 68 1 

20 

1 265 


DEFB 32 

1 682 

B7 

1 266 


OR A ; TIME TO CHANGE DIRECTION? 

1 683 

2808 

1 267 


JR Z , NEWMOV-* 

1 685 

DD460 1 

1 268 


LD B, ( IX+LASTMV) ; USE LAST MOVE 

1 688 

78 

1 269 


LD A, B 

1689 

CD AC 1 6 

1270 


CALL MOVTST 

1 68C 

cs 

1271 


RET Z ; LAST MOVE IS GOOD ENOUGH 

168D 


1272 

NEWMOV: 

SYSSUK RANGED 

1 6SD 

FF 

1272 

4- 

RST 56 

168E 

77 

1272 

4- 

DEFB RANGED+1 
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* MOD COMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 



1272 

+ 

IF RANGED EQ. I NTPC 



1272 

+ 

END IF 

16SF 

04 

1273 


DEFB 4 

1 690 

47 

1274 


LD B, A 

1691 

04 

1275 


INC B 

1 692 

3E80 

1276 


LD A, 80 H 

1694 

07 

1277 

SHFT I T : 

RLCA 

1 695 

10FD 

1 278 


DJNZ SHFT I T-* 

1 697 

47 

1 279 


LD B, A 

1 698 

3E08 

1 280 

RANFIN: 

LD A, OSH 

1 69 A 

CDAC16 

1281 


CALL MOVTST 

1 69 D 

2002 

1282 


JR NZ , ANYMOV-* 

169F 

47 

1 283 


LD B, A 

1 6 AO 

C9 

1284 


RET 

1 6 A 1 

060F 

1 285 

ANYMOV : 

LD B, OFH ; TRY ALL MOVES 

1 6 A3 

3E08 

1 286 


LD A, OSH 

1 6A5 

CD AC 1 6 

1 287 


CALL MOVTST 

1 6A8 

47 

1 288 


LD B, A 

1 6A9 

C9 

1289 


RET 

1 6AA 


1 290 

MOVANY : 


1 6AA 

3 E 0 8 

1291 


LD A, AMOVE 

16 AC 


1292 

MOVTST : 




1293 


; TEST THE NEW MOVE FOR VALIDITY 



1294 


; THE INPUTS AND OUTPUTS: 



1 295 


; B=A SET OF MOVES TO BE TESTED (IS UNCHANGED) 



1 296 


; C=UNCHANGED 



1 297 


i A=FIRST MOVE TO TEST, VALUE OF GOOD MOVE ON QUTF'U 



1298 


; DE, HL=RETURNED UNCHANGED 



1 299 


; D=# ROTATES 



1 300 


,1 FLAG=Z IF GOOD MOVE FOUND (A CONTAINS FIRST GOO 



1301 


;Z FLAG=NZ IF NO GOOD MOVES FOUND (IN B) 

16 AC 

D5 

1 302 


PUSH DE 

1 6 AD 

1 608 

1 303 


LD D, 8 i IN IT # ROTATES 

16AF 

OF 

1304 

ROTMSK: 

RRCA ; ROTATE TO NEXT MOVE 

16 BO 

5F 

1 305 


LD E, A 

16B1 

AO 

1 306 


AND B 

16B2 

CDCO 1 6 

1 307 


CALL CHKMOV ; CHECK MOVE 

16B5 

7B 

1 308 


LD A, E 

1 6B6 

2806 

1 309 


JR Z, MOVEXT-* ; FOUND ONE 

1 6B8 

15 

1310 


DEC D ; DEC # ROTATES 

1 6B9 

20F4 

131 1 


JR NZ, ROTMSK-* 

16BB 

37 

1312 


SCF ; NO GOOD MOVES 

1 6BC 

CB12 

1313 


RL D ; SET Z FLAG=NZ 

1 6 BE 

D 1 

1314 

MOVEXT: 

POP DE 

1 6BF 

C9 

1315 


RET 

1 6 CO 


1316 

CHKMOV: 




1317 


; CHECK THE MOVE IN A FOR BEING UNOCCUPIED 



1318 


, INPUT AND OUTPUT: 



1319 


; A=UP, DOWN, RIGHT OR LEFT BIT (RETURNED UNCHANGED) 



1 320 


;Z FLAG=Z IF MOVE IN A IS TO AN EMPTY POSITION 



1321 


; Z FLAG=NZ IF MOVE IN A IS BAD 



1322 


; BC, DE, HL RETURNED UNTOUCHED 



1323 


; I X=PO INTER TO CURRENT PLAYER PACKET 



1324 


; LOCAL TO THIS ROUTINE: 



1 325 


, D=TEMF' X COORD OF ARROW 



1326 


; E=TEMP Y COORD OF ARROW 

16C0 

C5 

1327 


PUSH BC 



* MO DCOM F' Z-80 

CROSS 

ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 16 

ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 

16C1 

D5 

1328 


PUSH 

DE 


16C2 

E5 

1 32 

9 


PUSH 

HL 


16C3 

F5 

133 

0 


PUSH 

AF 


16C4 

DD5604 

1 33 

1 


LD 

D, < IX+ARRX ) 

; GET X COORD OF ARROW 

1 6C7 

DD5E05 

133 

2 


LD 

E, ( IX+ARRY) 

; GET Y COORD OF ARROW 

16CA 

CBS 7 

133 

3 

TLEFT : 

BIT 

CHLEFT, A 


1 6CC 

2 80 A 

133 

4 


JR 

1, TRIGHT-* 


1 6CE 

7A 

133 

5 


LD 

A, D 

; GOT A LEFT MOVE 

1 6CF 

FEOO 

1336 


CP 

LGWX 


16D1 

282F 

133 

7 


JR 

Z , BADMOV-* 

; ALREADY AT LOWEST X 

1 6D3 

D604 

133 

8 


SUB 

WIDTH 

> DEC TEMP X BY 1 POSITION 

1 CD 5 

57 

133 

9 


LD 

D, A 


1 6D6 

1 830 

1 340 


JR 

LGOKSQ-* 


16D8 

CB5F 

1341 

TRIGHT: 

BIT 

CHRIGH. A 


16DA 

2 80 A 

1 342 


JR 

Z, TUP-* 


1 6 DC 

7A 

134 

o 


LD 

A, D 

; GOT A RIGHT MOVE 

1 6DD 

FE9C 

1344 


CP 

XMAX 


1 6DF 

302 1 

134 

5 


JR 

NC, BADMOV-* 

i ALREADY GEQ MAX X 

16E1 

C604 

1346 


ADD 

A, WIDTH 


16E3 

57 

1347 


LD 

D, A 


1 6E4 

1 822 

1348 


JR 

LOOKSQ-* 


16E6 

CB47 

1 349 

TUP: 

BIT 

CHIJP, A 


16E8 

280A 

1350 


JR 

Z, TDOWN-* 


16EA 

7B 

1351 


LD 

A, E 

; GOT AN UP MOVE 

16EB 

FEOB 

1352 


CP 

LOWY 


ICED 

2813 

1 353 


JR 

Z, BADMOV-* 

; ALREADY AT LOWEST Y 

16EF 

D604 

135 

4 


SUB 

HEIGHT 

; DEC TEMP Y BY 1 POSITION 

16F1 

5F 

135 

er 


LD 

E. A 


16F2 

1814 

135 

6 


JR 

LOOKSQ-* 


16F4 

CB4F 

1 357 

TDOWN: 

BIT 

CHDOWNj A 


1 6F6 

280A 

135 

y 


JR 

Z , BADMOV-* 


16F8 

7B 

135 

9 


LD 

A, E 

; GOT A DOWN MOVE 

16F9 

FE5B 

1360 


CP 

YMAX 


16FB 

2805 

1361 


JR 

1, BADMOV-* 

; ALREADY AT HIGHEST Y 

16FD 

C604 

136 

2 


ADD 

A, HEIGHT 

; INC TEMP Y BY 1 POSITION 

16FF 

5F 

1 36 



LD 

E, A 


1 700 

1 806 

1 364 


JR 

LOOKSQ-* 


1702 

FI 

1365 

BADMOV : 

POP 

AF 


1703 

37 

1 366 


SCF 



1 704 

CB12 

1 367 


RL 

D 

; SET Z FLAG = NZ 

1706 

1823 

136 

8 


JR 

MOVEND-* 


1708 


1 369 

LOOKSG: 






1370 


; SEE 

IF THE NEW 

SQUARE IS OCCUPIED 

1708 

D5 

1371 


PUSH 

DE 


1 709 

D5 

1 372 


PUSH 

DE 


170 A 

Cl 

137 



POP 

BC 


1 7 OB 

51 

1374 


LD 

D, C 

> REVERSE X,Y FOR SYSTEM 

170C 

58 

1375 


LD 

E, B 


1 7 OD 


1 376 


SYSSUK RELAB 1 


1 70 Ei 

FF 

1 376 

+ 

RST 

56 


170E 

3B 

1 376 

+ 

DEFB 

RELAB1+1 




1376 

+ 

IF 

RELAB 1 EQ. I NTPC 



1 376 

+ 

END IF 


1 7 OF 

00 

1 377 


DEFB 

0 


1710 

El 

137 

© 


POP 

HL 


171 1 

EB 

137 

9 


EX 

DE, HL 


1712 

7E 

1 3t 

;0 


LD 

A, (HL) 




*MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
AD DR OBJECT STMT LABEL OPCD OPERAND COMMENT 
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1713 B7 

1714 20 EC 
1716 012800 
1719 09 

171 A 7E 
171B B7 
17 1C 20E4 
171E 7 A 
17 IF 32A54F 

1722 7B 

1723 32A64F 

1726 FI 

1727 1600 
1729 CBS A 
1 72B El 
172C D1 

1 72D Cl 
1 72E C9 


172F 218A17 
1732 CB47 

1734 CO 

1735 219217 
1738 CB4F 
173A CO 
173B 218E17 
173E CB5F 

1740 CO 

1741 219617 
1744 C9 


1381 

1 382 

1 383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1 399 

1 400 

1401 

1 402 

1403 

1404 

1405 

1 406 

1 407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 


OR A ; TEST SQUARE 

JR NZ, BADMOV-* 

LD BC, BYTEF'L 
ADD HL, BC 
LD A, (HL) 

OR A 

JR NZ,BADMOV-$ 

LD A, D 

LD ( TARRX ) , A ; STORE TEMP ARROW X COORD 
LD A, E 

LD ( TARRY ) , A ; STORE TEMP ARROW Y COORD 
POP AF 
LD D, 0 

SRL D ; SET Z FLAG=Z 

MOVEND: POP HL 
POP DE 
POP BC 
RET 

GETROT: 

, HLC-BASE ADDR OF ROTATED PATTERN 
; AC-DIRECT I ON OF ROTATION 

i IF A HAS MORE THAN 1 BIT SET THEN ONLY ONE IS US 


LD 

HL, AUP 

BIT 

CHUP, A 

RET 

NZ 

LD 

HL, ADOWN 

BIT 

CHDOWN, A 

RET 

NZ 

LD 

HL, ARIGHT 

BIT 

CHRIGH, A 

RET 

NZ 

LD 

RET 

HL, ALEFT 


START OF ROM DATA FOR EACH PLAYER. 

CONTAINS: 4 PLAYER NOTES, PLAYER PATTERN ADDR 
, PLAYER CHAR DISP OPT 
PLAYER SCORE DISP OPT 
AND PLAYER SCORE POSITION 


1745 


1419 

PLROMO 



1745 


1420 

PNOTEO 

DEF4X 

GO, GSO, AO, ASO 

1745 

FD 

1420 

+ 

DEFB 

GO 

1746 

EE 

1420 

+ 

DEFB 

GSO 

1747 

El 

1420 

+ 

DEFB 

AO 

1748 

D4 

1 420 

+ 

DEFB 

ASO 

1749 

9A17 

1421 

PPADRO 

DEFW 

PF’ATO 

174B 

18 

1422 

PCDOPO 

DEFB 

011000B 

174C 

04 

1423 

PSPOSO 

DEFB 

4 

174D 

01 

1424 


DEFB 

1 

174E 

18 

1425 

PSDOPO 

DEFB 

01 1000B 

174F 


1426 

PLR0M1 



174F 


1427 

PN0TE1 

DEF4X 

BO, Cl, CS1, 01 

1 74F 

CS 

1427 

+ 

DEFB 

BO 

1 750 

ED 

1427 

+ 

DEFB 

Cl 

1751 

B2 

1427 

+ 

DEFB 

CS1 

1752 

A 8 

1427 

+ 

DEFB 

D1 

1753 

9E17 

1428 

PF'ADRl 

DEFW 

PPAT1 

1755 

1C 

1429 

PCDGP1 

DEFB 

01 1 100B 
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♦MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

1 756 

85 

1 430 

PSP0S1 

DEFB 133 

1757 

01 

1431 


DEFB 1 

1758 

1C 

1432 

PSD0P1 

DEFB 0111 OOB 

1 759 


1433 

PLR0M2 


1759 


1 434 

PN0TE2 

DEF4X DS1, El< FI, FS1 

1 759 

9F 

1 434 

+ 

DEFB DS1 

175A 

96 

1434 

+ 

DEFB El 

1 75B 

8D 

1434 

+ 

DEFB FI 

1 750 

85 

1434 

+ 

DEFB FS1 

175D 

A217 

1435 

PPADR2 

DEFW PPAT2 

1 75F 

1C 

1436 

PCDGP2 

DEFB 0111 OOB 

1760 

2D0 1 

1437 

PSPGS2 

DEFW 45+1. SHL. 8 

1762 

1C 

1438 

PSD0P2 

DEFB 0111 OOB 

1 763 


1439 

PLR0M3 


1 763 


1440 

PNGTE3 

DEF4X G 1 > GS 1 > A 1 » AS 1 

1 763 

7E 

1440 

+ 

DEFB G1 

1764 

77 

1440 

+ 

DEFB GS1 

1765 

70 

1440 

+ 

DEFB A1 

1766 

6 A 

1440 

+ 

DEFB AS1 

1767 

A617 

1441 

PPADR3 

DEFW PPAT3 

1769 

18 

1442 

PCDGP3 

DEFB 011000B 

176 A 

5D01 

1443 

PSP0S3 

DEFW 93+1. SHL. 8 

1 760 

18 

1444 

PSDGP3 

DEFB 011000B 



1445 


i EXPLOSION PATTERNS 

1 76D 


1446 

EXPATS 


1 76D 


1447 

EXPAT 1 

DEF4 X 0, 000 1 0 1 OOB, 000 1 0 1 OOB, 0 

1 76D 

00 

1447 

+ 

DEFB 0 

176E 

14 

1447 

+ 

DEFB 000 101 OOB 

176F 

14 

1447 

+ 

DEFB 0001 01 OOB 

1770 

00 

1447 

+ 

DEFB 0 

1771 


1448 

EXPAT2 

DEF4X 0, 01000101B, 01010001B, 0 

1771 

00 

1448 

+ 

DEFB 0 

1772 

45 

1448 

+ 

DEFB 0 1 000 1 0 1 B 

1773 

51 

1448 

+ 

DEFB 01 01000 IB 

1774 

00 

1448 

+ 

DEFB 0 

1775 


1449 

EXPATS 

: DEF4X 0000010 IB, 01 OOOOOOB, 0000000 IB, 0101 OOOOB 

1775 

05 

1449 

+ 

DEFB 000001 01 B 

1776 

40 

1449 

+ 

DEFB 01 OOOOOOB 

1777 

01 

1449 

+ 

DEFB 0000000 IB 

1778 

50 

1449 

+ 

DEFB 0101 OOOOB 

1779 


1450 

EXPAT4 

: DEF4X 00010001B, 01000000B, 00000001B, 01000100B 

1779 

1 1 

1450 

+ 

DEFB 000 1000 IB 

1 77A 

40 

1450 

+ 

DEFB 01 OOOOOOB 

177B 

01 

1 450 

+ 

DEFB 0000000 IB 

177C 

44 

1450 

+ 

DEFB 01 0001 OOB 

1 77D 


1451 

EXPATS 

: DEF4X 0, 0, 0, 0 

1 77D 

00 

1451 

+ 

DEFB 0 

1 77E 

00 

1451 

+ 

DEFB 0 

1 77F 

00 

1451 

+ 

DEFB 0 

1780 

00 

1451 

+ 

DEFB 0 



1452 


i EXPLOSION COLORS 

1781 


1453 

EX COLS 


1781 

07 

1454 


DEFB 7 

1782 

03 

1455 


DEFB 3 

1783 

07 

1456 


DEFB 7 

1784 

03 

1457 


DEFB 3 

1785 

77 

1458 


DEFB 077H 



*MODCOMP Z-SO CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 19 


ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 



1459 


; COUNT DOWN DISPLAY PACKET 

1 786 

0400 

1 460 

CDCOLR : 

DEFW 0100B+0. SHL. 8 



1461 


; TIMER DISPLAY PACKET 

1 788 

0 1 80 

1462 

T BRACK : 

DEFW 000 1 B+ 1 OOOOOOOB. SHL. 8 



1463 


; ARROW ANIMATION PATTERNS FOR EACH ROTATION 

1 78 A 


1 464 

A UP : 


1 78 A 


1 465 


DEF4X 000 101 OOB, 01 01010 IB, 01 00000 IB, 0 

1 78A 

14 

1465 

+ 

DEFB 000 101 OOB 

1 78B 

55 

1 465 

+ 

DEFB 01 010101 B 

1 78C 

41 

1 465 

+ 

DEFB 01 00000 IB 

1 78D 

00 

1465 

+ 

DEFB 0 

1 78E 


1 466 

ARIGHT: 


1 78E 


1467 


DEF4X 000 101 OOB, 00000 1 0 1 B, 00000 101 B, 000 101 OOB 

178E 

14 

1467 

+ 

DEFB 0001 01 OOB 

1 78F 

05 

1467 

+ 

DEFB 0000010 IB 

1 790 

05 

1467 

+ 

DEFB 00000101 B 

1 79 1 

14 

1467 

+ 

DEFB 000 101 OOB 

1792 


1468 

ADOWN : 


1792 


1 469 


DEF4X 0,01 00000 1 B , 0 1 0 1 0 1 0 1 B, 000 101 OOB 

1792 

00 

1 469 

+ 

DEFB 0 

1793 

41 

1 469 

+ 

DEFB 01 00000 IB 

1 794 

55 

1469 

+ 

DEFB 01 010 101 B 

1 795 

14 

1469 

+ 

DEFB 000101 OOB 

1 796 


1470 

ALEFT: 


1796 


1471 


DEF4X 00010100B, 01010000B, 01010000B, 00010100B 

1796 

14 

1471 

+ 

DEFB 000101 OOB 

1797 

50 

1471 

+ 

DEFB 0101 OOOOB 

1 798 

50 

1471 

+ 

DEFB 01 01 OOOOB 

1 799 

14 

1471 

+ 

DEFB 000 101 OOB 



1472 


; PLAYER PATTERNS 

1 79 A 


1473 

PRATO: 

DEF4X 0000 1 OOOB, 1 0 1 0 1 OOOB, 00 1 0 1 0 1 OB, 00 1 OOOOOB 

1 79 A 

08 

1473 

+ 

DEFB 00001 OOOB 

179B 

A 8 

1473 

+ 

DEFB 101 01 OOOB 

179C 

2A 

1473 

+ 

DEFB 00 10101 OB 

1 79D 

20 

1 473 

+ 

DEFB 001 OOOOOB 

1 79E 


1474 

PRAT 1 : 

DEF4X 1111 HUB, 1100001 IB, 1100001 IB, 1111 1111B 

1 79E 

FF 

1474 

+ 

DEFB 1111 111 IB 

179F 

C3 

1474 

+ 

DEFB 1100001 IB 

1 7A0 

C3 

1474 

+ 

DEFB 1100001 IB 

17A1 

FF 

1474 

+ 

DEFB 11111111 B 

17A2 


1475 

PPAT2: 

DEF4X 00001 100B, 11111 100B, 001 1 1 1 1 IB, 001 1 OOOOB 

1 7A2 

OC 

1475 

+ 

DEFB 000011 OOB 

1 7A3 

FC 

1475 

+ 

DEFB 111111 OOB 

1 7A4 

3F 

1475 

+ 

DEFB 00111 11 IB 

1 7A5 

30 

1475 

+ 

DEFB 0011 OOOOB 

17A6 


1476 

PPAT3: 

DEF4X 10 101 01 OB, 1000001 OB, 1000001 OB, 10101 01 OB 

17A6 

AA 

1476 

+ 

DEFB 10 10 101 OB 

17A7 

82 

1476 

+ 

DEFB 1000001 OB 

17A8 

82 

1476 

+ 

DEFB 1000001 OB 

1 7A9 

AA 

1476 

+ 

DEFB 101 0101 OB 



1477 


; COLOR BLOCK 

1 7AA 


1478 

CBLOCK: 


1 7AA 

F8 

1479 


DEFB 0F8H 

1 7AB 

F8 

1 480 


DEFB 0F8H 

17 AC 

F8 

1481 


DEFB 0F8H 

1 7 AD 

F8 

1482 


DEFB 0F8H 

1 7AE 

B5 

1 483 


DEFB 0B5H 
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* MOD COMP Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

1 7AF 

52 

1484 


DEFB 

052H 

1 7B0 

F8 

1485 


DEFB 

0F8H 

17B1 

77 

1486 


DEFB 

077H 



1487 


; EXPLOSION SOUNDS 

1 7B2 


1488 

EXPEND: 

DEF8 

OEFH, OFFH, 3FH, 0, OFFH, OFDH, 0F5H, 0F5H 

1 7B2 

EF 

1488 

+ 

DEFB 

OEFH 

17B3 

FF 

1488 

+ 

DEFB 

OFFH 

1 7B4 

3F 

1488 

+ 

DEFB 

3FH 

17B5 

00 

1 488 

+ 

DEFB 

0 

1 7B6 

FF 

1488 

+ 

DEFB 

OFFH 

1 7B7 

FD 

1 488 

+ 

DEFB 

OFDH 

1 7B8 

F5 

1488 

+ 

DEFB 

0F5H 

17B9 

F5 

1488 

+ 

DEFB 

0F5H 

1 7BA 


1 489 


DEF8 

08FH, OEEH, 3EH, 0, OFFH. OFDH, 0F5H, 0F5H 

1 7BA 

8F 

1489 

+ 

DEFB 

08FH 

1 7BB 

EE 

1489 

+ 

DEFB 

OEEH 

1 7BC 

3E 

1489 

+ 

DEFB 

3EH 

1 7BD 

00 

1489 

+ 

DEFB 

0 

17BE 

FF 

1489 

+ 

DEFB 

OFFH 

1 7BF 

FD 

1 489 

+ 

DEFB 

OFDH 

1 7C0 

F5 

1489 

+ 

DEFB 

0F5H 

17C1 

F5 

1489 

+ 

DEFB 

0F5H 

1 7C2 


1 490 


DEF8 

04EH, 088H. 38H, 0, OFFH, OFDH, 0F5H, 0F5H 

1 7C2 

4E 

1490 

+ 

DEFB 

04 EH 

17C3 

88 

1 490 

+ 

DEFB 

08SH 

1 7C4 

38 

1490 

+ 

DEFB 

38H 

1 7C5 

00 

1 490 

+ 

DEFB 

0 

17C6 

FF 

1 490 

+ 

DEFB 

OFFH 

17C7 

FD 

1490 

+ 

DEFB 

OFDH 

17C8 

F5 

1490 

+ 

DEFB 

0F5H 

17C9 

F5 

1490 

+ 

DEFB 

0F5H 

1 7CA 


1491 


DEF8 

04SH, 044H, 34H, 0, OFFH, OFDH, 0F5H, 0F5H 

17CA 

48 

1491 

+ 

DEFB 

048H 

17CB 

44 

1491 

+ 

DEFB 

044H 

1 7CC 

34 

1491 

+ 

DEFB 

34H 

1 7 CD 

00 

1491 

+ 

DEFB 

0 

17CE 

FF 

1491 

+ 

DEFB 

OFFH 

17C.F 

FD 

1491 

+ 

DEFB 

OFDH 

1 7D0 

F5 

1491 

+ 

DEFB 

0F5H 

17D1 

F5 

1491 

+ 

DEFB 

0F5H 

1 7D2 


1492 


DEF8 

o 

6 

o 

6 

o 

6 

o 

6 

1 7D2 

00 

1 492 

+ 

DEFB 

0 

1 7D3 

00 

1492 

4 - 

DEFB 

0 

1 7D4 

00 

1492 

+ 

DEFB 

0 

17D5 

00 

1492 

+ 

DEFB 

0 

17D6 

00 

1492 

+ 

DEFB 

0 

1 7D7 

00 

1 492 

+ 

DEFB 

0 

17D8 

00 

1 492 

+ 

DEFB 

0 

17D9 

00 

1492 

4 - 

DEFB 

0 

1 7DA 


1 493 


END 



TOTAL ASSEMBLER ERRORS = 



*MODC 

OMP Z-SO 

CROSS ASS 

EMBLER* 

HOME VIDEO 

GAME 

SYSTEM 


PAGE 2 1 




CROS 

3 REFERENCE 





LABEL 

VALUE 

REFERENCE 






AO 

00 E 1 

-508 

1421 






A 1 

0070 

-520 

1441 






A 2 

0037 

-532 







A3 

00 1 B 

-544 







A4 

000 D 

-556 







A 5 

0006 

-562 







ACTE I I 

0007 

-694 

957 

1117 1124 

1 186 




ACT I NT 

OOOE 

-225 

81 1 






ACTION 

146C 

-893 

943 






ACTIVE 

0080 

-692 

900 

905 





A DOWN 

1792 

- 1 368 

1406 






ALEFT 

1796 

- 1 369 

1412 






ALLEYS 

02 1 4 

-49 

v y y 






ALLBYT 

0D20 

-719 

99 1 

1 1 03 





AL.LHUM 

1 3B7 

-82 1 

844 






AMOVE 

0008 

-678 

1291 






ANIARR 

1 600 

- 1 1 05 

1046 

1 222 





ANIMAX 

0003 

-672 







ANYMOV 

1 6 A 1 

- 1 1 98 

1 282 






ARIGHT 

1 78 E 

-1367 

1409 






AROT 

0003 

-687 

970 

1 033 1 1 88 

1221 




ARRX 

0004 

-688 

814 

816 818 

820 

y ti'j. 

1 035 

1043 



1073 

1191 

1331 





ARRY 

0005 

-689 

863 

1034 1045 

1072 

1 1 90 

1 332 


ASO 

00 D 4 

-509 

1421 






AS 1 

00 6 A 

-52 1 

1441 






AS 2 

0034 

-533 







ASS 

00 1 A 

-545 







A UP 

1 78 A 

- 1 366 

1 403 






EO 

00 C8 

-510 

1 428 






El 

0064 

-522 







E2 

0031 

-534 







B3 

0018 

-546 







BADMOV 

1702 

-1278 

1 337 

1 345 1 353 

1 358 

1 36 1 

1 382 

1 387 

BCD ADD 

0062 

-277 







BCDCHS 

006 A 

-281 







BCDD I V 

0068 

-280 







BCDMUL 

0066 

-279 







BCDNEG 

00 6C 

— / / 







BCD SUE 

0064 

-278 







BEGR AM 

4FCE 

-594 

753 






BIT SPL 

00 AO 

-43 







BLANK 

00 2 A 

-243 

1 056 

1056 





EMUS I C 

0012 

—229 







BUMPCK 

1 5C6 

-1071 

1125 






BUMPEM 

1 5 A3 

- 1 05 1 

1147 






BYTE PL 

0028 

-42 

673 

697 7 1 9 

720 

1 383 



Cl 

00 BD 

-511 

1428 






C2 

00 5 E 

-523 







C3 

002E 








C4 

00 1 7 

-547 







C5 

OOOE: 

-557 







C6 

0005 

-563 









C7 

0002 

-566 







CALF I Z 

148B 

-909 

948 






CEA 

0009 

-123 







CEB 

0007 

-121 







CBC 

0006 

-120 







CBD 

0005 

-119 







CBE 

0004 

-1 18 







CBFLAG 

0008 

-122 







CBH 

00 OB 

-125 







CBIXH 

0003 

-117 







CB I XL 

0002 

-116 







CBIYH 

000 1 

-115 







CB I YL 

0000 

-114 







CBL 

000 A 

-124 







CBLEN 

0008 

-725 







CBL DC K 

17AA 

-1372 

777 






CDCOLR 

1786 

- 1 362 







CDOF’T 

0044 

-681 

923 






CDOWNL 

1426 

-882 

930 






CHDOWN 

0001 

-111 

1357 

1407 





CHKMOV 

16C0 

-1229 

1307 






CHLEFT 

0002 

-110 

1333 






CHRDIS 

0032 

-248 

868 

868 

872 

872 

925 

925 

CHRIGH 

0003 

-109 

1341 

1410 





CHTRIG 

0004 

-108 







CHLIP 

0000 

-112 

1349 

1404 





CKNOPL 

141E 

-876 

903 






CKSUM3 

1418 

-873 







CLEARF 

1 4B4 

-930 

822 

931 





CNOHUM 

4FA4 

-743 

838 

851 

1115 

1225 



CNOF'L 

4FA2 

-741 

786 

787 

846 

853 

1150 

1229 

CNT 

4FDD 

-61 1 

935 






COLOL 

0004 

— 1 68 







COLOR 

0000 

-164 

1 070 






COL1L 

0005 

-169 







COL 1 R 

0001 

-165 







C0L2L 

0006 

-170 







C0L2R 

0002 

-166 







C0L3L 

0007 

-171 







C0L3R 

0003 

-167 







COLBX 

00 OB 

-172 







COLLST 

4FE8 

-622 







COLSET 

00 1 8 

-234 

777 






CGNCM 

0008 

-189 







CRASH 

1 533 

-993 

1029 






CS1 

00 B 2 

-512 

1428 






CS2 

0059 

-524 







css 

00 2 C 

-536 







CS4 

0015 

-548 







CSS 

000 A 

-558 







CTO 

4FD5 

-602 

1232 






CT1 

4FD6 

-603 







CT2 

4FD7 

-604 







CT3 

4FD8 

-605 







CT 4 

4FD9 

-606 







CT5 

4FDA 

-607 







CT6 

4FDB 

-60S 









CT7 

4FDC 

-609 

761 

CTIMER 

0203 

-46 


CURSOR 

4F96 

-739 

767 

CURSW 

0002 

-686 

999 

D 1 

00A8 

-513 

1428 

D2 

0054 

-525 


D3 

0029 

-537 


D4 

0014 

-549 


DABS 

0072 

-285 


DADD 

006E 

-283 


DECCTS 

00 1 0 

-226 


D I SNIJM 

0036 

-250 

826 

D I SPSC 

1 5E3 

-1088 

893 

DISTIM 

0052 

-267 


DOIT 

0044 

-260 

940 

DO I TB 

0046 

-261 


DONTD 

13A1 

-806 


DS1 

009F 

-514 

1 435 

DS2 

004F 

-526 


DS3 

0027 

-538 


DS4 

0013 

-550 


DS5 

0009 

-559 


DS6 

0004 

-564 


DSMG 

0070 

-284 


DIJRAT 

4FEA 

-624 


El 

0096 

-515 

1 435 

E2 

004A 

-527 


E3 

0025 

-539 


E4 

00 1 2 

-551 


EMUS I C: 

00 1 4 

-230 

779 

END 

OOCO 

-379 

948 

ENDCHK 

15D6 

- 1 083 

1 1 53 

ENDRAM 

4FC4 

-752 

753 

ENDSCR 

4FF4 

—632 


ERASE 

1525 

-987 

1036 

EX COLS 

1781 

-1355 

1062 

EXLOOP 

1 53E 

-1000 

1094 

EXPAT 1 

1 76D 

-1354 


EXPAT2 

1771 

-1354 


EXPATS 

1775 

-1354 


EXPAT 4 

1779 

-1354 


EXPATS 

1 77D 

-1354 


EXPATS 

176D 

-1353 

1061 

EXPFIN 

1 56 D 

-1026 

1088 

EXF'SND 

1 7B2 

-1382 

1064 

FI 

008D 

-516 

1435 

F2 

0046 

-528 


F3 

0022 

-540 


F4 

001 1 

-552 


F5 

0008 

-560 


FILL 

001 A 

-235 

767 

FI RE IT 

1340 

-764 

1 161 

FIRSTS 

2000 

-40 


FNTSML 

020D 

-48 

824 

FNTSYS 

0206 

-47 


FORCEM 

OOF 6 

-716 


FPLAY 

1 3B5 

-820 

842 


830 1157 1160 

889 1129 

1208 1209 


826 1181 1181 
1134 1140 

940 


928 928 

948 

1074 1193 


767 781 786 990 990 

1179 



FS1 

0085 

-517 

1435 



FS2 

0042 

-529 




FS3 

0020 

-541 




FS4 

00 1 0 

-553 




FTBASE 

0000 

-93 




FTBYTE 

0003 

-96 




FTFSX 

000 1 

-94 




FTFSY 

0002 

-95 




FTF'TH 

0006 

-99 




FTF'TL 

0005 

-98 




FTYSIZ 

0004 

-97 




GO 

OOFD 

-506 

1421 



G 1 

007E 

-518 

1441 



G2 

003E 

-530 




G3 

00 1 F 

-542 




G4 

OOOF 

-554 




G5 

0007 

-561 




G6 

0003 

-565 




G7 

000 1 

-567 




G8 

0000 

-568 




GAMSTB 

4FF8 

-634 




GETLM 

1642 

-1141 

1211 

1213 

1216 

GETNUM 

00 4 E 

-265 




GETPAR 

00 4 C 

-264 

759 

759 

763 763 

GETROT 

1 72F 

-1310 

1 189 



GOTB I T 

14A1 

-919 

974 



GOT I T 

1645 

-1142 

1219 



GOTMOV 

1 4F7 

-97 1 

1018 

1021 

1025 

GOTNPL 

1 3AA 

-812 

835 



GOT SW 

14 DC 

-956 

1012 



GSO 

OOEE 

-507 

1421 



GS 1 

0077 

-519 

1441 



GS'2 

003 B 

-531 




GS3 

00 1 D 

-543 




GS4 

000 E 

-555 




GSBEND 

0007 

-62 




ObBSCR 

0001 

-61 




GSBTIM 

0000 

-60 




GTMINS 

4FEE 

-628 




GTF'LIX 

1 3C4 

—83 1 

911 



GTSECS 

4FED 

-627 




HEIGHT 

0004 

-718 

1 354 

1 362 


HORAF 

OOOF 

-195 




HORCB 

0009 

-173 




HUMAN 

0040 

-693 

900 



HUMANR 

0040 

-257 




HUMS I T 

0006 

-695 

1000 

1 113 

1218 

HUMCHK 

1 63C 

- 1 1 39 




I NC I X 

1 46F 

-897 

958 



I NCSCR 

0054 

—268 

1 137 

1 1 37 


INDEXB 

005C 

-274 




INDEXN 

0056 

-271 




INDEXW 

00 5 A 

-273 

1242 

1242 

1246 1246 

INFBK 

GOOD 

-186 




INLIN 

OOOF 

- 1 88 




I NMOD 

00 OE 

-187 




I NT IFF’ 

1 3BA 

-826 






I NTPC: 

0000 

-2 1 6 

759 



868 

872 



940 

967 



1 1 37 

1 144 



1273 

1377 

INTP© 

0000 

-768 

-789 

I NT ST 

0008 

- 1 93 


JUS JOY 

00 OF 

-724 


KCTASC 

0040 

c r r'l 
— jL. •_* O 


r E YO 

00 1 4 

-206 


KEY 1 

00 1 5 

-207 


KEY 2 

0016 

-208 


KEYS 

00 1 7 

—209 


KEYSEX 

4FE3 

-617 


KILLST 

1590 

-1048 

1114 

LASTMV 

0001 

/ i”i cr 

1016 

LAST SW 

0000 

-684 

998 

LDPLIX 

1 65 C 

-1155 

857 

LDF'LIY 

1 65C 

- 1 1 56 

969 

LOOKSQ 

1 708 

-1282 

1 340 

LOOPY 

144F 

-896 

941 

LOWX 

0000 

-677 

1 336 

LQWY 

00 OB 

-675 

676 

MAGIC 

oooc 

- 1 90 


MATH 

0056 

-270 


MCALL 

0006 

-219 


MENU 

00 4 A 

-263 


MENUS T 

0218 

—50 


M JUMP 

000 A 

-221 


MOVANY 

16AA 

- 1 203 

1 020 

MOVE 

005E 

-275 


MOVE I T 

1 4BC 

-935 

959 

MOVEND 

1 72E: 

- 1 306 

1 368 

MOVE XT 

1 6 BE 

- 1 227 

1 309 

MOV JOY 

1484 

-905 

944 

MOVTST 

1 6 AC 

- 1 205 

1017 

MEET 

0008 

-220 


MRFLOP 

0006 

- 1 0 1 


MR LOCK 

4FF7 

-633 


MR OR 

0004 

- 1 03 

1 1 69 

MRROT 

0002 

- 1 05 


MRSHFT 

0003 

-106 


MRXOR 

0005 

- 1 02 

1170 

MRXPND 

0003 

-104 


MSKTD 

007E 

-291 


MIJSVOL 

0009 

-679 

982 

MUZAK 

00 1 2 

•“/ ~y c* 


MIJZ PC 

4FCE 

-596 


MUZSP 

4F DO 

-597 


MX SCR 

02 1 E 

-51 


NEGT 

0074 

-286 


NEWMOV 

1 68D 

- 1 1 87 

1267 

NEWWAY 

000 1 

-666 


NOB I T 

0002 

-670 


NO CUR 

14CB 

-946 

1 00 1 

NOGAME 

0235 

-53 

759 

NOPLAY 

0228 

er •-/ 

763 


763 

767 

775 

775 

775 

y v 

883 

916 

925 

926 

923 

y:-:y 

990 

1042 

1051 

1056 

1079 

1 080 

1 1 63 

1 181 

1 1 98 

1242 

1246 

1 265 


1 026 
1 009 

1 032 

121 0 

1 220 

1 268 


956 

1 1 23 

1 204 




1348 

1 356 

1364 




701 

702 

703 

720 

790 

1 352 


1024 1028 


945 

946 

947 

1270 

1281 

1 287 



NORMEM 

4000 

-39 

720 

736 




NOTEO 

0000 

-705 






NOTE 1 

000 1 

-706 






N0TE2 

0002 

-707 






NOTES 

0003 

-708 






NOTHUM 

1419 

-874 

899 





NOT X OR 

1 SEC 

-1096 

1 168 





NF'BIT 

0003 

-671 






NUMPLY 

4FF3 

-631 

765 

833 




NWHDWR 

0001 

-36 

665 





0A1 

008F 

-576 






0A2 

0047 

-577 






0A3 

0023 

-578 






0A4 

001 1 

-579 

984 





0A5 

0008 

-580 






OBO 

OOFE 

-570 






OCO 

OOF 1 

-571 






0D1 

00D6 

-572 






0E1 

OOBF 

-573 






OF 1 

00B4 

-574 






001 

00 AO 

-575 






OLDWAY 

0000 

-665 

666 





ONETIM 

1 328 

-755 






OF'OTO 

4FDF 

-6 1 3 






OPOT 1 

4FE0 

-614 






0P0T2 

4FE 1 

-615 






OPOT 3 

4FE2 

-616 






OS WO 

4FE4 

-618 

781 





0SW1 

4FE5 

-619 






0SW2 

4FE6 

-620 






0SW3 

4FE7 

-621 






F'ATDIM 

0104 

-723 






PATXSZ 

000 1 

-721 

723 

878 

1039 

1054 

1077 

F'ATYSZ 

0004 

-722 

723 

878 

1039 

1054 

1077 

PAWS 

0050 

-266 

916 

916 

926 

926 

1080 



1144 






PCD OF' 

0006 

-711 

866 





F'CDOF'O 

1 74B 

- 1 332 






PCDOF'l 

1755 

-1338 






F'CDOF'2 

1 75F 

-1344 






PCD OP 3 

1 769 

-1349 






F'lZBRK 

0048 

-262 

967 

967 




PLAYO 

4FA8 

-748 

814 

1256 




PLAY 1 

4FAF 

-749 

816 

1257 




PLAY2 

4FB6 

—750 

818 

1258 




PLAYS 

4FBD 

-751 

787 

820 

1259 



F'LIX 

4FA3 

-742 

917 

952 

955 

968 


PLROMO 

1745 

- 1 330 

1252 





F'LROMl 

1 74F 

- 1 336 

1253 





PLR0M2 

1 759 

-1342 

1254 





PLR0M3 

1763 

-1347 

1255 





F'NOTEO 

1745 

- 1 33 1 






F'NOTE 1 

1 74F 

- 1 337 






PN0TE2 

1759 

-1343 






PN0TE3 

1 763 

- 1 348 






POTO 

00 1C 

-201 






POT 1 

00 1 D 

-202 







1195 
1 195 
1080 


1144 



POT 2 

00 1 E 

-203 





POT 3 

00 IF 

-204 





P PACKS 

4FA8 

-747 





F'F'ADRO 

1749 

-1331 





F'PADR 1 

1753 

- 1 337 





PF'ADR'2 

1 75D 

- 1 343 





PPADR3 

1767 

-1348 





F'F’AT 0 

1 79 A 

- 1 37 1 

1421 




F'F'AT 1 

1 79E 

- 1 37 1 

1428 




PPAT2 

1 7A2 

- 1 37 1 

1435 




PPAT3 

1 7A6 

-1371 

1441 




PF'ATH 

0005 

-710 

879 

1 037 

1 096 


F'F'ATL 

0004 

-709 

880 

1 038 

1097 


PR I OR 

4FF9 

-635 





F'SDOP 

0009 

-714 

1167 




F'SDOPO 

1 74E 

- 1 335 





F'SDOP 1 

1 758 

-1341 





F'SDOP 2 

1762 

- 1 346 





F'SDOP 3 

1 76C 

- 1 35 1 





F'SF'OSO 

1 74C 

-1333 





F'SF'OS 1 

1 756 

- 1 339 





PSP0S2 

1760 

-1345 





F'SF'OS 3 

1 76 A 

- 1 350 





F'SF'OS X 

0007 

-712 

3 6> 8 

1172 



PSP OS Y 

0008 

-713 

869 

1173 



F'STAT 

0006 

-690 

748 

749 

750 

751 



957 

1 000 

1113 

1117 

1124 

F'SWCY 

0000 

-58 





F'SWF'V 

0002 

-57 





F'SWSGN 

0007 

cr er 
— •_» •_* 





F'SWZRO 

0006 

-56 





F'VOLAB 

4FD2 

-598 





F'VOLMC 

4FD3 

-599 





QIJ I T 

0078 

-288 

1 1 63 

1 1 63 



RAMTBL 

1677 

- 1 1 73 

1246 




RANFIN 

1 698 

- 1 1 93 





RANGED 

0076 

-287 

1 265 

1265 

1273 

1 273 

RANMOV 

1 67F 

-1177 

1014 




RANSHT 

4FEF 

-630 





RANT ST 

1 4D0 

-950 

1007 




RCALL 

0004 

-218 





RECTAN 

00 1 C 

-236 

795 

799 

802 

305 

RELAB 1 

00 3 A 

-253 

1051 

1051 

1377 

1377 

RELABS 

0038 

-252 





RESTOM 

1 58 E 

-1041 

1 1 05 




RESTOR 

00 2 E 

-245 





RLNOVE 

OOOC 

-668 

1212 

1214 



RMASK 

4FA7 

-746 





ROMTBL 

1 66F 

- 1 1 69 

1242 




ROTMSK 

1 6AF 

-1217 

131 1 




RST ART 

4FA1 

-753 





SAVE 

00 2 C 

-244 





SBLEN 

0008 

-726 

1 082 




SCHEDR 

OOOC 

-224 





SCREEN 

0000 

-41 





SCROLL 

0030 

-246 





SCRSTR 

0016 

’“/ O ■“/ 






787 90 1 

1 1 86 1218 


808 


906 


SCT 0 

OOO 1 

-128 

943 


SCT 1 

0002 

-129 



SCT 2 

0003 

- 1 30 



SCT 3 

0004 

-131 



SCT 4 

0005 

- 1 32 



SCT 5 

0006 

- 1 33 



SCT 6 

0007 

- 1 34 



SCT 7 

0008 

- 1 35 



SEMI4S 

4FDE 

-6 1 2 



SENFLG 

4FFA 

—636 



SENTRY 

0042 

-259 

938 

938 

SETS 

007 A 

-289 



SET OUT 

0016 

-233 

790 


SETW 

007C 

-290 



SFO 

0009 

-136 



SF1 

000 A 

-137 



SF2 

000 B 

— 1 38 



SF3 

OOOC 

- 1 39 



SF4 

GOOD 

- 1 40 



SF5 

OOOE 

-141 



SF6 

OOOF 

-142 



SF7 

00 1 0 

-143 



SHFTIT 

1 694 

- 1 1 90 

1278 


SHIFTU 

0060 

-276 



SJO 

0015 

-152 

944 

961 

S .J 1 

00 1 7 

-154 

945 


SJ2 

0019 

-156 

946 


SJ3 

00 1 B 

-158 

947 


SKYD 

0013 

-145 

948 


SKYU 

00 1 2 

- 1 46 



SNDBX 

0018 

- 1 84 

1082 


SNUL 

0000 

-127 



SPO 

00 1 C 

-147 



SP 1 

00 ID 

-148 



SP2 

00 IE 

- 1 49 



SP3 

00 IF 

-150 



SSEC 

00 1 1 

-144 



STO 

0014 

-151 



ST 1 

00 1 6 

-153 



ST2 

0018 

-155 



STS 

001 A 

-157 



STALL 

16 IE 

- 1 1 20 

963 


STARTS 

4 1 B8 

-720 

990 

1102 

ST I CK 

1658 

- 1 1 53 

1228 


STIMER 

0200 

-45 



ST LOOP 

1585 

- 1 035 

1 109 


STOMP 

157C 

- 1 032 

1112 


STOREN 

0058 

-272 



STORIT 

1 628 

- 1 1 30 

1207 


STRDIS 

0034 

-249 



SUCK 

OOOC 

-222 



SWO 

0010 

-197 



SW1 

001 1 

-198 



SW2 

00 1 2 

- 1 99 



SW3 

00 1 3 

-200 



SYSRAM 

4FCE 

-639 



TARRX 

4FA5 

-744 

1042 

1 389 



TARRY 

4FA6 

-74 

cr 

1044 

TDOF'T 

0024 

-6E 

0 

828 

TDOWN 

16F4 

- 1 270 

1 350 

TDF'ACK 

1 7S8 

- 1 364 


THETBL 

1459 

-89 

o 

940 

TIC 

K I T 

1 64A 

-1144 

933 

T I MO LIT 

4FEC 

-62 

6 


TLEFT 

1 6CA 

-1246 


TMR60 

4FEB 

-62 

cr 


TONEA 

00 1 1 

-177 


TON EE 

00 1 2 

-178 


TON EC 

00 1 3 

- 1 79 

98 1 

TON MO 

00 1 0 

- 1 76 

985 

TRIGHT 

1 6DS 

-125 

4 

1 334 

T STB I T 

1 49C 

-91 

cr 

._i 

975 

TUF 


16E6 

- 1 26 

9 

1342 

UD MOVE 

0003 

-66 

9 

1215 

IJMARGT 

4FFB 

—62 

7 


I.JNC 

RAM 

4F96 

-72 

C; 

753 

UP I 

STR 

0000 

-21 

5 


UF'MUZK 

1 49 1 

-911 

9 1 8 

LISERTE 

4FFD 

-62 

£: 


VEC 

LNK 

0006 

-E 

7 


VBC 

CHK 

0004 

— £ 

4 


VEC 

H 

0003 

— £ 

o 


VBC 

L. 

0002 

— £ 

•~f 


VBC 

LAT 

0003 

—9 

1 


VBC 

LMT 

0000 

— £ 

9 


VBC 

REV 

000 1 

-90 


VBDCH 

000 1 

— £ 

1 


VBDCL 

0000 

— £ 

0 


VBDXFI 

0004 

-6 

•”« 


VBDXL 

0003 

-6 

7 

/ 


VBDYFI 

0009 

-7 

3 


VEDYL 

0008 

-7 

9 


VBLANK 

0028 

-24 

'A 


VBMR 

0000 

-64 


VBOAH 

00 OE 

-78 


VBOAL 

GOOD 

-77 


VBS 

ACT 

0007 

— £ 

6 


VBC 

TAT 

000 1 

-6 

5 


VET 

I MB 

0002 

-66 


VBXCHK 

0007 

-71 


VBXH 

0006 

-70 


VBXL 

0005 

-6 

9 


VBYCHK 

oooc 

-76 


VBYH 

OOOB 

-7 

5 


VBYL 

000 A 

-74 


VEC 

T 

003E 

-255 


VEC 

TC 

003C 

-25 

4 


VERAF 

OOOE 

- 1 94 


VERBL 

000 A 

-174 


VI BRA 

0014 

-IE 

0 


VOICES 

4FD4 

-600 


VOLAB 

00 1 6 

-IE 

1 


VOLC 

00 1 5 

-IE 

9 

983 

VOL.N 

00 1 7 

— 1 £ 

O 



1391 

949 


1217 

757 

1047 



OWRITR 

00 1 E 

-237 





WASTE 

OFFF 

-585 





WASTER 

OFFF 

-586 





WIDTH 

0004 

-717 

1 338 

1346 



WF'ONOF 

0000 

-727 





WPOF'T 

000 1 

-728 





WF'F'AH 

0003 

-730 





WF'F'AL 

0002 

-729 





WF'XSIZ 

0005 

-731 





WPYSIZ 

0004 

-732 





WRIT 

0024 

-240 

1198 

883 

883 

1042 

1042 1079 1079 1198 

WRITA 

0026 

-241 





WRITOR 

00 1 0 

-682 

1040 

1076 

1 1 96 


WR I TP 

0022 

-239 





WRITR 

0020 

2 *~j q 





X I NTC 

0002 

-217 

812 




XMAX 

00 9 C 

-673 

1344 




XF'AND 

00 1 9 

-191 





XPNDON 

000 1 

-35 





XTAB1 

0028 

-697 

698 

699 

813 


XTAB2 

0050 

-698 

817 

819 



XTAB3 

0078 

-699 

815 




YLINES 

00 1 5 

-674 

676 

700 

719 

790 

YMAX 

005 B 

-676 

1 360 




YTAB 

00 1 4 

-700 

701 

702 

703 


YTAB1 

00 IF 

-701 

817 




YTAB2 

0033 

-702 

8 1 8 

815 



YTAB3 

0047 

-703 

819 




ZSW 

1 4C8 

-943 
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ADDR 

OBJECT 

STMT 

LABEL OPCD 

OPERAND COMMENT 




641 






642 

LIST 

S, M, X, T 




643 

ORG 

17DEH 


17DE 

C3E819 

644 

JP 

INIT 




646 

j tf*****tt#*tt*********** 




647 

; * GUN FIGHT 

EQUATES * 




648 

; *************#*■«■•*•**•*# 




649 

; GUNFIGHT BACKGROUND JOB 




650 

; CONSISTING 

OF INITIALIZATION, PRE-ROUND 

DISPLAY, 



651 

; MONITORING 

OF CONTROLS AND VECTOR DELTA 

CHANGING 



652 

; DEATH, POST ROUND STUFF AND END GAME 




654 

; EQUATES 



>0008 

655 

LNX 

EQU 

8 

LEFT NUMBER X 

>0002 

656 

BSY 

EQU 

2 

BANNER STRINGS Y 

>0088 

657 

RNX 

EQU 

136 

RIGHT NUMBER X 

>0020 

658 

LBULX 

EQU 

32 

LEFT BULLETS X 

>0068 

659 

RBIJLX 

EQU 

104 

RIGHT " " 

>004C 

660 

STMRX 

EQU 

76 

SUE TIMER X 

>002C 

661 

GRX 

EQU 

44 

GET READY X 

>0001 

662 

GRY 

EQU 

1 

" Y 

>0040 

663 

DRX 

EQU 

64 

DRAW X 

>0014 

664 

TCACY 

EQU 

20 

TOP CACTUS Y 

>00 OF 

665 

TTREEY 

EQU 

TCACY-5 


>002 A 

666 

MCACY 

EQU 

42 

MID CACTUS Y 

>0046 

667 

BCACY 

EQU 

70 

BOTTOM CACTUS Y 

>0041 

668 

BTREEY 

EQU 

BCACY-5 


>0040 

669 

LCACX 

EQU 

64 

LEFT CACTUS X 

>0058 

670 

RCACX 

EQU 

88 

RIGHT CACTUS X 

>004C 

671 

CCACX 

EQU 

76 

CENTER CACTUS X 

>0048 

672 

WAGX 

EQU 

72 

WAGON X 

>0060 

673 

COWX 

EQU 

RCACX +8 

OTHER COWBOYS WINDOW X 


674 

i 




>000A 

675 

TLINE 

EQU 

10 

TOP LINE OF GUNSPAC-E 

>0009 

676 

ALINE 

EQU 

TLINE-1 


>005C 

677 

BLINE 

EQU 

92 

BOTTOM LINE OF " 


678 

i 




>0012 

679 

BLILVSZ 

EQU 

18 

BULLET VECTOR SIZE 

>0017 

680 

GFVSIZ 

EQU 

23 


>0012 

681 

WAGVSZ 

EQU 

18 

WAGON VECTOR SIZE 


682 

i 




>0032 

683 

WINBND 

EQU 

50 

TOP-BOTTOM WINDOW BOUNDARY 

>006A 

684 

T GPL I N 

EQU 

53*2 

TOP WINDOW LINE 

>0000 

685 

BOTLIN 

EQU 

00 

BOTTOM WINDOW LINE 

>00C8 

686 

LFRLIN 

EQU 

100*2 

LOW PRIORITY FOREGROUND LINE 


687 

i 




>FFFF 

688 

NEXT 

EQU 

-1 

NEXT LINK FOR QUEUES 

>000F 

689 

VBARM 

EQU 

VBOAH+1 

ARM STATE 

>0010 

690 

VBOARM 

EQU 

VBARM+1 

LAST ARM PATTERN WRITTEN 

>0011 

691 

VBLEGT 

EQU 

VBOARM+1 

LEG TIMER 

>00 1 2 

692 

VBLEG 

EQU 

VBLEGT+1 

LEG LINK 

>00 1 3 

693 

VBCOMP 

EQU 

VBLEG+1 

TIMER FOR COMPUTER CONTROL 



*MODCOMP Z-80 

CROSS 

ASSEMBLER* HOME VIDEO 

GAME SYSTEM PAGE 2 

ADDR OBJECT 

STMT 

LABEL 

OP CD 

OPERAND 

COMMENT 


694 

; BITS 




>0000 

695 

VBSWAG 

EQU 

0 

i WAGON BIT 

>0003 

696 

VBSCHG 

EQU 

3 

; CHANGE STATUS BIT 

>0004 

LSI 

VBSNOM 

EQU 

4 

; NOT MOVING STATUS 

>0005 

698 

VBSINT 

EQU 

5 

; INTERCEPTED/DEAD STATUS 




700 


; ******* -fr-fr** * 




701 


i * SUBROUTINES * 




702 


; *****#***•«■*■#■■»■#■* 




703 


; DISPLAY CLOCK AND UPDATE CT4 


17E1 

F3 

704 


DCLOCK DI 


17E2 


705 


SYSSUK DECCTS 


1 7E2 

FF 

705 

+ 

RST 56 


1 7E3 

1 1 

705 

+ 

DEFB DECCTS+l 




705 

+ 

IF DECCTS. EQ. INTPC 




705 

+ 

END IF 


1 7E4 

80 

706 


DEFB 1 OOOOOOOB 


17E5 

DD2 1 0D02 

707 


LD IX/ FNTSML 


1 7E9 

3ADC4F 

708 


LD A, ( CT7 ) 


1 7 EC 

B7 

709 


OR A 


1 7ED 

2808 

710 


JR Z,DCOIJT-$ 


1 7EF 


711 


SYSSUK DISNUM 


1 7EF 

FF 

711 

+ 

RST 56 


17F0 

37 

71 1 

+ 

DEFB DISNUM+1 




71 1 

+ 

IF DISNUM. EQ. INTPC 




71 1 

+ 

END IF 


17F1 

4C 

712 


DEFB STMRX 


1 7F2 

02 

713 


DEFB BSY 


1 7F3 

OB 

714 


DEFB TIME 


1 7F4 

42 

715 


DEFB 42H 


1 7F5 

DC4F 

716 


DEFW CT7 


1 7F7 

AF 

717 


DCOUT X OR A 


17F8 

D30C 

718 


OUT (MAGIC), A 


1 7FA 

32FF0F 

719 


LD < WASTE ) , A 


17FD 

FB 

720 


El 


1 7FE 

C9 

721 


RET 




722 


; FIRE BULLETS 




723 


, LEFT COWBOY 


1 7FF 


724 

FIREO SYSSUK SUCK 


1 7FF 

FF 

724 

+ 

RST 56 


1 800 

OD 

724 

+ 

DEFB SUCK+1 




724 

+ 

IF SUCK. EQ. INTPC: 




724 

+ 

END IF 


1 80 1 

DC 

725 


DEFB 110111 OOB 


1 802 

614F 

726 


DEFW LCOWB 


1 804 

DA4F 

727 


DEFW LBULS 


1 806 

194F 

728 


DEFW BULV1+1 


1808 

1809 

729 


JR ZORE-$ 


1 80 A 


730 

F I RE 1 SYSSUK SUCK 


180A 

FF 

730 

+ 

RST 56 


1 SOB 

OD 

730 

+ 

DEFB SUCK+1 




730 

+ 

IF SUCK. EQ. INTPC 




730 

+ 

END IF 

* 



PAGE 


* MOD COMP Z— 80 
AD DR OBJECT 


1 

30 C 

DC 

1 

30 El 

784F 

1 

30 F 

DB4F 

1 

311 

3D4F 

1 

313 

FD7E07 

1 

316 

B7 

1 

317 

C8 

1 

3 1 8 

OA 

1 

319 

B7 

1 

31 A 

C8 

1 

31 B 

7E 

1 

3 1 C 

B 7 

1 

31 D 

2809 

1 

3 1 F 

1 1 1 200 

1 


19 

1 

z> A o 

7E 

1 

324 

B 7 

1 

325 

2801 

1 

327 

C9 


1 828 

OA 

1829 

3D 

182A 

02 

182 B 

200D 

1 82 D 

3ADC4F 

1 830 

Ei 7 

1 83 1 

3E 1 0 

1833 

2802 

1 835 

3E02 

1 837 

32DC4F 

1 83 A 

E5 

1 8 3 Ei 

DDE 5 

1 83D 

OA 

1 83E 

6F 

1 83F 

2600 

1 84 1 

29 

1842 

29 

1 843 

1 1 6802 

1 846 

D DC BOO 7 6 

184 A 

3E40 

184C 

280 1 

184E 

AF 

184F 

19 

1 850 

EE: 

1851 


1851 

FF 

1852 

3 A 


1 853 

EE: 

1 854 

0605 

1856 

1 1280C 

1859 

36FF 


CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
STMT LABEL. OPCD OPERAND COMMENT 


73 1 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 
779 
779 
779 

779 

780 

781 

782 

783 



DEFB 

11011 100B 



DEFW 

RCOWE: 



DEFW 

REiULS 



DEFW 

BULV3+ 1 


ZORE: 

LD 

A, ( IY+CBEO 



OR 

A 



RET 

Z 



LD 

A, (BC) 

; GET BULLET COUNT 


OR 

A 



RET 

Z 



LD 

A, ( HL. ) 

; CHECK IF BULLET IS AVAILABLE 


OR 

A 



JR 

Z, ZOK-$ 



LD 

DE, BULVSZ 

i DELTA TO NEXT BULLET 


ADD 

HL, DE 



LD 

A, (HL) 



OR 

A 



JR 

Z, ZOK-$ 



RET 




; NOW HL-OBULLET 


; I X— >COWBOY 

; SUB 1 FROM BULLET COUNT 
ZQK LD A, < BC ) 

DEC A 
LD (BC), A 

; SET SUB TIMER IF OUT OF BULLETS 


JR 

NZ, BERASE-* 

LD 

A, ( CT7 ) 

OR 

A 

LD 

A, 10H 

JR 

Z , STSEC-* 

LD 

A, 2 

LD 

( CT7 ) , A 

PUSH 

HL 


PUSH IX 

LD A, (BC) 

LD L, A 

LD H, 0 

ADD HL, HL 

ADD HL, HL ; *4 

LD DE, BSY *256+RBUL X 

BIT MRFLOP, < IX+VBMR) 

LD A, 4 OH i FLOPED MR 

JR Z,RITB-$ 

XOR A i NORMAL MR 

POSITION AND ERASE 
ADD HL, DE 

EX DE, HL 

SYSTEM RELAB 1 
RST 56 

DEFB RELAB 1 

IF RELAB 1. EQ. I NTPC 
END IF 

EX DE, HL 

LD B, 5 

LD DE, 40 ; INC TO NEXT LINE 

LD < HL ) , OFFH ; ERASE A LINE 


; NOW 
RITB 


+ 

+ 

+ 


BELP 



PAGE 


*MODC 

:0MP Z-80 

CROSS 

ASSEMBLER* HOME VIDEO GAME 

SYSTEM PAGE 

ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

185B 

19 

784 


ADD 

HL, DE 

GO DOWN A LINE 

185C 

10FB 

785 


DJNZ 

BELP-* 


185E 

1 600 

786 


LD 

D, 0 


1 860 

DD5E0F 

787 


LD 

E, ( IX+VBARM) 

GET CURRENT ARM POS 

1 863 

62 

788 


LD 

H, D 


1864 

6B 

789 


LD 

L, E 


1 865 

29 

790 


ADD 

HL, HL. 

*2 

1 866 

19 

791 


ADD 

HL, DE 

*3 

1 867 

1 193 ID 

792 


LD 

DE, BULTAB 


1 86A 

19 

793 


ADD 

HL, DE 

-> BULTAB (ARM) 

186B 

EB 

794 


EX 

DE, HL 


1 86C 

Cl 

795 


POP 

BC 

BC<== I X 

1 86D 

El 

796 


POP 

HL 

BUL C ST AT 3 

1 86E 

E5 

797 


PUSH 

HL 

SAVE FOR ACTIVATE 

1 86F 

y |T| 

798 


INC 

HL 

BUL CDEL TIME] 

1870 

3601 

799 


LD 

( HL ) , 1 

MAKE BUL IT JUMP OUT 

1872 

~f O 

800 


INC 

HL 

BUL CDEL XLOW] 

1873 

03 

801 


INC 

BC 

COW CST AT] 

1874 

03 

802 


INC 

BC 

COW CDEL TIME] 

1875 

03 

803 


INC 

BC 

COW CDX LO] 

1876 

CDD319 

804 


CALL 

F'UTVEC 


187? 

03 

805 


INC 

BC 

COW CXCHK] 

1 87 A 

03 

806' 


INC 

BC 

COW CDY LO] 

1 87 B 

23 

807 


INC 

HL 

BUL CXCHK] 

187C 

3601 

808 


LD 

(HL), 1 

LIMIT CHECK 

187E 

23 

809 


INC 

HL 

BUL CDY LO] 

187F 

CDD319 

810 


CALL 

F'UTVEC 


1882 

E 1 

811 


POP 

HL 

BUL CSTAT] 

1883 

3680 

812 


LD 

< HL ) , 80H 

ACTIVE 


1885 


813 


SYSSUK EMUS I C 

1 885 

FF 

813 

+ 

RST 56 

1 886 

13 

813 

+ 

DEFB BMUSIC+1 



813 

+ 

IF BMUSIC. EQ. I NTPC 



813 

+ 

END IF 

1 887 

1 24F 

814 


DEFW MSTACK 

1 889 

01 

815 


DEFB 0000000 IB ; JUST NOISE 

1 88A 

DB1F 

816 


DEFW GUNSHOT 

1 88C 

C9 

817 


RET 



818 

; TAKE 

A COFFEE BREAK 

1 88D 


819 

NBRK : 

DONT PIZBRK ; SEE IF I CARE 

188D 

48 

8 1 9 

+ 

DEFB PIZBRK 

1 88E 


820 


DO MRET 

1 88 E 

09 

820 

+ 

DEFB MRET+1 



821 

; CONVERT JOYST I CKS 

1 88F 

DD21614F 

822 

JOYO 

LD I X , LCOWB 

1893 

1804 

823 


JR F'JOY— $ 

1895 

DD21784F 

824 

JOY 1 

LD IX, RCGWB 



825 

; CONVERT JOYSTICKS 

1899 

DD4E00 

826 

P JOY : 

LD C, (IX+VBMR) 

189C 

1 18000 

827 


LD DE, 128 

1 89 F 

2 1 8000 

828 


LD HL, 128 

1 8A2 


829 


SYSTEM MSKTD ; COMPUTE DELTAS 

18A2 

FF 

829 

4 

RST 56 

18 A3 

7E 

829 

+ 

DEFB MSKTD 



829 

+ 

IF MSKTD. EQ. I NTPC 



829 

+ 

END IF 

1 8A4 

DD7409 

830 

STHN 

LD ( I X+VBDYH ) , H 



PAGE 


* MO DC 0 MR Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OF' CD 

OPERAND 

COMMENT 


1 8A7 

DD7508 

831 


LD 

< I X+VBDYL ) , L 



1 8AA 

DD7204 

C;;“;2 


LD 

( I X+VBDXH ) , D 



1 SAD 

DD7303 

833 


LD 

< IX+VBDXL), E 



18 BO 

C9 

834 


RET 




18B1 

DD21784F 

835 

F'F'OT 1 : 

LD 

IX, RCOWB 



1 8B5 

78 

836 


LD 

A, B 

; POT MUST BE FLOPPED BECAU 

1 8B6 

2F 

837 


CF'L 


; ARM IS FLOPPED 


1 8B7 

1805 

838 


JR 

PPOT-* 



18B9 

DD21&14F 

839 

PROTO: 

LD 

I X , LCOWB 



1 8BD 

78 

840 


LD 

A, B 





841 

; CONVERT POT AND STORE 



1 8 BE 

E6E0 

842 

F'F'OT 

AND 

OEOH 



1 SCO 

OF 

843 


RRCA 




18C1 

OF 

844 


RRCA 




18C2 

OF 

845 


RRCA 




1 8C3 

OF 

846 


RRCA 




1 8C4 

FEOE 

847 


CP 

OEH 



1 8C6 

2002 

848 


JR 

NZ, KART-* 



1 8C8 

3E0C 

849 


LD 

A, OCH 

, IF KN0B=7 THEN SET TO 

6 

18CA 

DD770F 

850 

KART 

LD 

< IX+VBARM), A 

SET ARM POSITION 


18CD 

C9 

85 1 


RET 






852 

; CHECK 

IF BULLET HIT ANYTHING 


1 8CE 

DD7E01 

853 

HITCHK: 

LD 

A, ( IX+VBSTAT) 



18D1 

E660 

854 


AND 

060H 



1 8D3 

FE20 

855 


CP 

2 OH 

; CHECK ONLY IF BLANKED 


1 8D5 

28 OF 

856 


JR 

Z, HIT-* 



1 8D7 

DO 

857 


RET 

NC 

; RETURN IF NOT BLANKED 

YET 

18D8 

DDCB075E 

858 


BIT 

VBCLAT , ( I X+VBXCHK ) 


18 DC 

C8 

859 


RET 

Z 



1 8DD 

DD360100 

860 


LD 

(IX+VBSTAT), 0 

; BULLET HIT WALL 


18E1 

DD360701 

86 1 


LD 

( I X+VBXCHK ) , 1 

; SET LIMIT CHECK 


1 8E5 

C9 

862 


RET 




1 8E6 

DD7E06 

863 

HIT: 

LD 

A, ( IX+VBXH) 

CHECK WHAT PART OF SCR 

ITS 

1 8E9 

FE48 

864 


CP 

WAGX 



1SEB 

300E 

865 


JR 

NC, HIT1-* 



18ED 

DD 360 202 

866 


LD 

( IX+VBTIMB), 2 

; MAKE I T JUMP OUT 


18F 1 

DD360180 

867 


LD 

( IX+VBSTAT), 80H i RE ACTIVATE 


18F5 

218F1D 

868 


LD 

HL, BULLMT 



1 8F8 


869 


SYSTEM VECT 



18F8 

FF 

869 

+ 

RST 

56 



1 8F9 

3E 

869 

+ 

DEFB 

VECT 





869 

+ 

IF 

VECT. EQ. I NTPC 





869 

4 - 

END IF 



1 8FA 

C9 

870 


RET 




1 8FB 

DD360 1 00 

871 

HITl : 

LD 

( IX+VBSTAT), 0 

; BULIT DIES FROM WAGON 

ON 

1 8FF 

FE58 

872 


CF' 

RCACX 



1901 

30 1 D 

873 


JR 

NC, HIT2-* 



1 903 

3A904F 

874 


LD 

A, (WAGON) 



1906 

B7 

875 


OR 

A 

IS IT A CACTI I? 


1907 

CO 

876 


RET 

NZ 

NOPE ITS A WAGON 


1 908 

1 E4C 

877 


LD 

E, CCACX 

LOAD X 




878 

; ERASE 

OBJECT BULLET HITS 



190 A 

DD560B 

879 

ERASE 

LD 

D, ( IX+VBYH) 

LOAD Y 


1 90 D 

15 

880 


DEC 

D 



1 90E 


881 


SYSSUK RELAB 1 



1 90 E 

FF 

881 

+ 

RST 

56 



1 90F 

3B 

©y l 

+ 

DEFB 

RELAB1+ 1 
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*MODCOMF' Z-80 

CROS! 

5 ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 6 

ADDR 

OBJECT 

STMT 

LABEL 

OP CD 

OPERAND COMMENT 



881 

+ 

IF 

RELAB 1 EQ. I NTPC 



881 

+ 

END IF 

1910 

00 

882 


DEFB 

0 

191 1 

EB 

883 


EX 

BE, HL 

1912 

11D7FF 

884 


LD 

DE, -41 

1915 

0600 

885 


LD 

B, 0 

1917 

7E 

886 

ELOP 

LD 

A, (HL) 

1918 

70 

887 


LD 

( HL ) , B ; ZERO THE SCREEN BYTE 

1919 


888 


INC 

HL 

191 A 

B6 

889 


OR 

(HL) 

191 E: 

70 

890 


LD 

( HL ) , B 

1 9 1 C 

19 

891 


ADD 

HL, DE 

1 9 1 D 

20F8 

892 


JR 

NZ, ELOP-* 

191 F 

C9 

893 


RET 


1 920 

FE60 

894 

H I T 2 : 

CP 

RCACX+8 ; GUNFTR SPACE 

1922 

300 C 

895 


JR 

NC, DIE-* 

1924 

1 E40 

896 


LD 

E, LCACX 

1 926 

D DC BO 07 6 

897 


BIT 

MRFLOP, (IX+VBMR) 

1 92A 

20DE 

898 


JR 

NZ, ERASE-* 

1 92C 

1 E58 

899 


LD 

E, RCACX 

1 92E 

1 8DA 

900 


JR 

ERASE-* 

1 930 

DDCB0076 

901 

DIE: 

BIT 

MRFLOP, < IX+VBMR) ; WHO DIED? 

1934 

280C 

902 


JR 

Z, DLEFT-* 

1 936 


903 


SYSSUK SUCK 

1936 

FF 

903 

+ 

RST 

56 

1937 

OD 

903 

+ 

DEFB 

SUCK+1 



903 

+ 

IF 

SUCK. EQ. I NTPC 



903 

+ 

END IF 

1938 

DD 

904 


DEFB 

1101U01B 

1 939 

614F 

905 


DEFW 

LCOWB 

1 93 B 

08 

906 


DEFB 

y 

1 93C 

B11F 

907 


DEFW 

TAPS 

193E 

A64F 

908 


DEFW 

RSCORE 

1940 

180 A 

909 


JR 

BIE1-* 

1942 


910 

DLEFT 

SYSSUK SUCK 

1942 

FF 

910 

+ 

RST 

56 

1 943 

OD 

910 

+ 

DEFB 

SUCK+1 



910 

+ 

IF 

SLICK. EQ. I NTPC 



910 


END IF 

1944 

DD 

91 1 


DEFB 

1 10U101B 

1945 

784F 

912 


DEFW 

RCOWB 

1947 

64 

913 


DEFB 

100 

1948 

Cl IF 

914 


DEFW 

FUNERL 

194 A 

A24F 

915 


DEFW 

LSCORE 

194C 

DD361 106 

916 

DIE1 : 

LD 

< I X+VBLEGT ) , 6 ; SET FIRST CELL TIME 

1950 

DD361284 

917 


LD 

( I X+VBLEG ) , KILl AND. OFFH ; ?? 

1954 

DD360168 

918 


LD 

< IX+VBSTAT), 068H ; KILL HIM 

1 958 

DD7E0B 

919 


LD 

A, (IX+VBYH) ; WHERE TO WRITE GOT 1 

1 95B 

D608 

920 


SUB 

8 

195D 

FE13 

921 


CP 

TLINE+9 

195F 

3002 

922 


JR 

NC, DIE4-* 

1961 

C620 

923 


ADD 

A, 32 

1 963 

57 

924 

DIE4 

LD 

D, A ; LOAD Y 

1964 


925 


SYSTEM INCSCR 

1 964 

FF 

925 

+ 

RST 

56 

1 965 

54 

925 

+ 

DEFB 

I NCSCR 



925 

+ 

IF 

INCSCR. EQ. I NTPC 



*MODC 

SOMP Z-80 

CROS 

3 ASSEMBLER* HOME VIDEO GAME SYSTEM 

AD DR 

OBJECT 

STMT 

LABEL 

OP CD OPERAND COMMENT 



92 

5 

+ 

END IF 

1 966 

2 B 

92 

6 


DEC HL 

1 967 

7E 

92 

7 


LD A, (HL) ; FIELD 

1 968 

FE05 

928 


CP 5 ; INC IF LE 

1 96 A 

CEOO 

929 


ADC A, 0 

1 96 C 

77 

92 

0 


LD ( HL ) , A 



92 

1 

; PLAY 

DEATH SONG 

1 9 6 El 

60 

92 

•7 


LD H, B 

1 96E 

69 

92 

0 


LD L, C 

1 96F 

DD2 1 1 24F 

92 

4 


LD IX, MSTACK 

1973 

3EC0 

92 

5 


LD A, 11000000B 

1 975 


92 

6 


SYSTEM BMUSIC 

1 975 

FF 

92 

6 

+ 

RST 56 

1976 

12 

92 

6 

+ 

DEFB BMUSIC 



92 

6 

+ 

IF BMUSIC. EQ. I NTPC 



92 

6 

+ 

END IF 

1 977 

OEOC 

92 

7 


LD C, LARG2 

1 979 

2 106 IF 

92 

y 


LD HL, GOT ME 

1 97 C 

F3 

92 

9 


D I 

197D 


940 


SYSTEM STRDIS 

1 97D 

FF 

940 

+ 

RST 56 

197E 

34 

940 

+ 

DEFB STRDIS 



940 

+ 

IF STRDIS. EQ. I NTPC 



940 

+ 

END IF 

1 97F 


941 


SYSSUK PAWS 

1 97 F 

FF 

941 

+ 

RST 56 

1 980 

51 

941 

+ 

DEFB PAWS+1 



941 

+ 

IF PAWS. EQ. I NTPC 



941 

+ 

END IF 

1 98 1 

FA 

942 


DEFB 250 

1 982 

3E01 

94 



LD A, 1 

1 984 

32DE4F 

944 


LD < SEMI 4S ) , A ; SET FLAGO 

1 987 

C9 

94 

5 


RET 



946 

; FIELD PUTS UP THE CACTI I AF'PROP TO 



947 

, A=SC 

ORE OF OFF' PLAYER UPTO 6 



94 

C; 

; BC - 

> ARRAY OF Y POSITIONS 

1988 

21F81E 

949 

FIELD: 

LD HL, CACTUS ; -> CACTUS 

19 SB 

F5 

9= 

0 


PUSH AF 

1 98C 

3E08 

95 

1 


LD A, 100 OB 

1 98 E 

D319 

95 

• 7 / 


OUT ( XF'AND) , A 

1990 

FI 

95 

y 


POP AF 

1991 

FEO 1 

95 

4 


CP 1 

1 993 

D 8 

955 


RET C 

1 994 

FE04 

956 


CP 4 

1996 

3003 

95 

7 


JR NC, TCAC-T 

1 998 

CDC819 

958 


CALL CACW 

1 99 B 

03 

959 

TCAC 

INC BC 

1 99C 

FE02 

960 


CP 2 

199E 

D8 

961 


RET C 

1 99 F 

FE05 

96 

2 


CP 5 

19A1 

3003 

96 

y 


JR NC, MCAC— $ 

19 A3 

CDC8 1 9 

964 


CALL CACW 

19A6 

FE03 

96 

5 

MCAC 

CP 3 

1 9A8 

D8 

966 


RET C 

19A9 

03 

967 


I NC BC 

1 9AA 

08 

96 

0 


EX AF , AF •' 

19AB 

3E8 1 

96 

9 


LD A, 81 H ; ACTIVATE 


PAGE 7 
3S THAN 5 


SCORE 

PATTERN 


; ACTIVATE WAGON 



PAGE 8 


* MO DC OMR Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


AD DR 

OBJECT 

STMT 

LABEL OF'CD OPERAND COMMENT 

1 9AD 

32904F 

970 

LD (WAGON), A 



19 BO 

08 

971 

EX AF, AF ' 



1 9B 1 

CDC819 

972 

CALL CACW 



1 9B4 

FE04 

973 

CP 4 



19B6 

D8 

974 

RET C 



19B7 

03 

975 

I NC BC 



1 9B8 

21E91D 

976 

LD HL, TREE 



1 9BB 

F5 

977 

PUSH AF 



1 9BC 

3E0C 

978 

LD A, 1 100B 



1 9 BE 

D319 

979 

OUT ( XPAND) < A 



1 9C0 

FI 

980 

POP AF 



1 9C 1 

CDC8 1 9 

981 

CALL CACW 



19C4 

FE05 

982 

CP 5 



1 9C6 

DS 

983 

RET C 



19C7 

03 

984 

INC BC 



1 9C8 

F5 

985 

CACW: PUSH AF 



1 9C9 

D5 

986 

PUSH DE 



19CA 

OA 

987 

LD A, (BC) 



1 9CB 

57 

988 

LD D, A 



1 9CC 

3E08 

989 

LD A, 8 

EXPAND 

1 9CE 


990 

SYSTEM WRITF' 



1 9CE 

FF 

990 

+ RST 56 



1 9CF 

22 

990 

+ DEFB WRITF' 





990 

+ IF WRITF'. EQ. I NTPC 




990 

+ END IF 



1 9 DO 

D 1 

991 

POP DE 



19D1 

FI 

992 

POP AF 



1 9D2 

C9 

993 

RET 





994 

; PUT DEL X, Y INTO BULLET VECTOR 

s 

1 9D3 

1A 

995 

F'UTVEC LD A, (DE) 

TABLE CD LOD 

1 9D4 

77 

996 

LD ( HL ) , A 

BUL 

CD LOD 

19D5 

13 

997 

INC DE 

TAB 

CD HID 

19D6 

03 

998 

I NC BC 

COW 

CD HID 

19D7 

23 

999 

I NC HL 

BUL 

CD HID 

1 9D8 

1A 

1 000 

LD A, (DE) 



19D9 

77 

1001 

LD ( HL ) , A 



19DA 

23 

1002 

INC HL 

BUL 

CLOD 

1 9DB 

13 

1003 

INC DE 

TAB 

CHID 

1 9 DC 

03 

1004 

INC BC 

COW 

CLOD 

1 9DD 

3600 

1005 

LD < HL ) , 0 



1 9DF 

03 

1 006 

INC BC 

COW 

CHID 

1 9E0 

23 

1 007 

INC HL 

BUL 

CHID 

19E1 

OA 

1008 

LD A, (BC) 



1 9E2 

EB 

1 009 

EX DE, HL 



1 9E3 

86 

1010 

ADD A, (HL) 



19E4 

EB 

101 1 

EX DE, HL 



19E5 

77 

1012 

LD ( HL ) , A 

BUL 

CHI D=COW 

1 9E6 

13 

1013 

INC DE 

TAB 

CD HID 

19E7 

C9 

1014 

RET 




CHID+TAB CHID 



*MOD( 

l:OMP Z-80 

CROS: 

3 ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 9 

AD DR 

OBJECT 

STMT 

LABEL 

OP CD OPERAND COMMENT 

1 9ES 


1016 

; GUNFIGHT START UP ROUTINE (ONCE PER GAME) 


1017 

INIT: 

SYSSUK GETF'AR 

1 9E8 

FF 

1017 

+ 

RST 56 

1 9E9 

4D 

1017 

4 

DEFB GETPAR+1 



1017 

+ 

IF GETF'AR. EQ. INTF'C 



1017 

4 

END IF 

1 9EA 

1E02 

101 8 


DEFW MX SCR 

1 9EC 

84 

1019 


DEFB 84H 

i 9ED 

F44F 

1 020 


DEFW ENDSCR 

1 9EF 

31064F 

1 02 1 


LD SP, STACK 

1 9F2 


1 022 


SYSTEM INTF'C 

1 9F2 

FF 

1 022 

4 

RST 56 

19F3 

00 

1 022 

+ 

DEFB INTF'C 



1022 

+ 

IF INTF'C. EQ. INTF'C 

>000 1 


1 022 

+INTP® 

DEFL 1 



1 022 

+ 

END IF 

1 9F4 


1 023 


DO FILL 

19F4 

IB 

1023 

+ 

DEFB FILL+1 

1 9F5 

064 F 

1024 


DEFW STACK 

19F7 

D600 

1 025 


DEFW CT7-STACK 

1 9F9 

00 

1 026 


DEFB 0 

19FA 


1027 


DO SETB 

19FA 

7B 

1027 

4 

DEFB SETB+1 

1 9FE 

02 

1 028 


DEFB 2**GSBSCR 

1 9FC 

F84F 

1029 


DEFW GAMSTB 

19 FE 


1 030 


DO SET OUT , SET UP GAME PORTS 

19FE 

17 

1030 

+ 

DEFB SETOIJT+1 

19FF 

E'8 

1031 


DEFB BLINE*2 ; BOTTOM LINE - VERT ELK 

1 A00 

D6 

1 032 


DEFB RCACX/4+0C0H ; HORZ BOUNDS 

1 AO 1 

08 

1033 


DEFB 8 ; INMOD 

1 AO 2 


1034 


DO COLSET 

1 A 02 

19 

1 034 

4 

DEFB COLSET+1 

1 A03 

C7 1 D 

1 035 


DEFW GFCOLS 

1A05 


1 036 


DO EMUS I C , PLAY STREETS OF LOREDO 

1 AOS 

13 

1 036 

4 

DEFB BMUSIC+1 

1 A 06 

1 24F 

1 037 


DEFW MSTACK 

1 AOS 

CO 

1038 


DEFB 1 1 000000 B ; ON VOICE A 

1 AO 9 

A3 IF 

1039 


DEFW HOME 

1 AOB 


1 040 


EXIT 

1 AOB 

02 

1040 

4 

DEFB X I NT C 

>0000 


1 040 

+INTPG 

DEFL 0 



1041 




1042 

; ONCE 

A ROUND START UP ROUTINE 



1 043 

i 


1 AOC 

F3 

1 044 

STRND: 

DI 

1 AOD 


1 045 


SYSTEM INTF'C 

1 AOD 

FF 

1 045 

4 

RST 56 

1 AOE 

00 

1 045 

4 

DEFB INTF'C 



1 045 

4 

IF INTF'C. EQ. I NTPC 

>000 1 


1 045 

4-iNTPe 

DEFL 1 



1 045 

4 

END IF 



1 046 

; INIT 

HANDLES, BULLETS, TIMERS 

1 AOF 


1047 


DO MOVE 

1 AOF 

5F 

1047 

4 

DEFB MQVE+1 

1 A 1 0 

DA4F 

1 048 


DEFW CT5 

1A12 

ocoo 

1 049 


DEFW 12 


PAGE 10 


# MOD COMP Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


AD DR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

1 A 1 4 

CF 1 D 

1 050 



DEFW 

SINIT 




1051 


; COLOR 

BANNER 


1 A16 


1052 



FILL 

? NORMEM, BYTEPL*ALINE, OFFH 

1A16 

IB 

1052 

+ 


DEFB 

FILL+1 


1A17 

0040 

1 052 

+ 


DEFW 

NORMEM 


1A19 

6801 

1052 

+ 


DEFW 

BYTEF'L*AL I NE 


1 A1B 

FF 

1 052 

+ 


DEFB 

OFFH 




1053 


; ERASE 

SCREEN 


1 A 1 C 


1054 



FILL 

? NORMEM+BYTEF'L*ALINE, BYTEF'L* ( BL I NE-AL I NE ) 

1 A1C 

IB 

1054 

+ 


DEFB 

FILL+1 


1 AID 

6841 

1 054 

+ 


DEFW 

NORMEM+BYTEF'L*AL I NE 

1 A 1 F 

F80C 

1054 

+ 


DEFW 

BYTEF'L* (BL I NE- 

ALINE) 

1 A21 

00 

1054 

+ 


DEFB 

0 




1055 


, RESET 

VECTORS 


1 A22 


1056 



FILL’ 

? STRRAM, ENDRAM 

-STRRAM, 0 

1 A22 

IB 

1 056 

+ 


DEFB 

FILL+1 


1 A23 

1 24F 

1 056 

+ 


DEFW 

STRRAM 


1 A25 

8F 00 

1 056 

+ 


DEFW 

ENDRAM-STRRAM 


1 A27 

00 

1056 

+ 


DEFB 

0 




1057 


; SHOW ' 

SCORE! 

3 


1 A28 


1058 



DO 

SUCK 


1 A28 

OD 

1058 

+ 


DEFB 

SUCK+ 1 


1 A29 

10 

1059 



DEFB 

00010000B ; 

IX 

1 A2A 

0D02 

1 060 



DEFW 

FNTSML 


1 A2C 


1061 



DO 

DISNUM 


1 A2C 

37 

1061 

+ 


DEFB 

DISNUM+1 


1 A2D 

08 

1 062 



DEFB 

LNX 


1 A2E 

02 

1063 



DEFB 

BSY 


1 A2F 

OB 

1 064 



DEFB 

TIME 


1 A 30 

C4 

1 065 



DEFB 

0C4H ; 

ZERO SUF'RS, SMALL 

1 A31 

A24F 

1066 



DEFW 

LSCORE 


1 A33 


1 067 



DO 

DISNUM 


1 A3 3 

37 

1067 

+ 


DEFB 

DISNUM+1 


1 A34 

88 

1068 



DEFB 

RNX 


1 A35 

02 

1 069 



DEFB 

BSY 


1A36 

OB 

1 070 



DEFB 

TIME 


1 A37 

C4 

1071 



DEFB 

0C4H 


1 ASS 

A64F 

1072 



DEFW 

RSCORE 




1073 


CHECK 

FOR END GAME 


1 ASA 


1074 



DO 

RCALL 


1 ASA 

05 

1074 

+ 


DEFB 

RCALL+1 


1 A3B 

30 IB 

1075 



DEFW 

ENDGAM 


1 A3D 


1 076 



TEXT 

GETRDY/ GRX. GRY 

, LARGE 

1 A3D 

35 

1076 

+ 


DEFB 

STRDIS+1 


1 A3E 

2C 

1076 

+ 


DEFB 

GRX 


1 ASF 

01 

1 076 

+ 


DEFB 

GRY 


1 A40 

OB 

1 076 

+ 


DEFB 

LARGE 


1A41 

7E1D 

1076 

+ 


DEFW 

GETRDY 


1 A 43 


1 077 



EXIT 



1 A43 

02 

1077 

+ 


DEFB 

XINTC 


0000 


1077 

+ INTF‘@ 

DEFL 

0 


1 A44 

AF 

1078 



X OR 

A ; 

SET UP WAGON 

1 A45 

32904F 

1 079 



LD 

< WAGON ) , A i 

STOP WAGON 



1 080 

> 

PUT UP PLAY FIELD: 


1 A48 

3AA14F 

1081 



LD 

A, < RFIELD ) ; 

NUMBER OF CACTI I 

1 A4B 

1E58 

1082 



LD 

E, RCACX 

RIGHT CAC. COLUMN 

1 A4D 

01C21D 

1083 



LD 

BC, RFTAB ; 

POSITIONS TABLE FOR CACTI I 



*MODCOMF’ Z— 80 

CROSS 

5 ASSEMBLER* HOME VIDEO GAME SYSTEM 

PAGE 1 

A DDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 


1 A 50 

CD8819 

1084 


CALL 

FIELD ; PUT THE CACTI I UP 

1 A 53 

3AA54F 

1 085 


LD 

A, (LFIELD) 


1 A 56 

1 E40 

1 086 


LD 

E, LCACX 


1 ASS 

01BD1D 

1087 


LD 

BC, LFTAB 


1 A5B 

CD8819 

1088 


CALL 

FIELD 




1 089 

; INITIALIZE 

Q POINTERS 


1 A5E 

3E4F 

1 090 

INITQ 

LD 

A, LCOWB. SHR. 8 


1 A60 

32144F 

1 09 1 


LD 

(WRITQ+2), A 


1 A 63 

32174F 

1092 


LD 

( VECQ+2 ) , A 




1093 

; SET 

UP VECTORS SO COWBOYS WALK OUT 


1 A66 

DD21614F 

1094 


LD 

IX, LCOWB ; LEFT COMBOY 

VECTOR 

1 A6A 

DD3600 1 0 

1095 


LD 

(IX+VBMR), 10H 


1 A6E 

21 154F 

1096 


LD 

HL, VECQ 


1A71 

CDS 4 1 D 

1097 


CALL 

COW I NT 


1 A74 

DD21784F 

1 098 


LD 

I X , RCQWB ; RIGHT COWBOY VECTOR 

1 A7S 

DD 36 0050 

1099 


LD 

(IX+VBMR), 50 H 


1 A7C 

CD341D 

1 1 00 


CALL 

COW I NT 


1 A7F 

3A904F 

1 101 


LD 

A, (WAGON) > IF WAGON IS 

ON 

1 A82 

B7 

1 102 


OR 

A 


1 ASS 

28 ID 

1 103 


JR 

Z, MIDC-* 


1 ASS 

DD218F4F 

1 1 04 


LD 

I X , WAGVEC ; THEN ACTIVATE WAGON 

1 AS9 

DD360010 

1105 


LD 

(IX+VBMR), 10H 


1 A8D 

DD360C03 

1 1 06 


LD 

( I X+VBYCHK ) , 3 


1 A91 

DD360840 

1 107 


LD 

( IX+VBDYL), 40H 


1 A95 

DD 36 064 8 

1 108 


LD 

( IX+VBXH), 72 


1 A99 

DD360B0A 

1 109 


LD 

( IX+VBYH), TL.INE 


1 A9D 

CDS 4 1 D 

1110 


CALL 

ADDTQ 


1 A AO 

1 SOB 

1111 


JR 

BORG-* 


1 AA2 

3E08 

1112 

M I DC : 

LD 

A, 8 


1 AA4 

D319 

1113 


OUT 

( XPAND) , A 


1 AA6 


1 114 


SYSSUK WRITP ; ELSE PUT UP 

A CACTU: 

1 AA6 

FF 

1 114 

+ 

RST 

56 


1 AA7 

23 

1114 

+ 

DEFB 

WRITF'+l 




1 114 

+ 

IF 

WRITP. EQ. INTF'C 




1 114 

+ 

ENDIF 


1 AA8 

4C 

1 1 15 


DEFB 

CCACX 


1 AA9 

2A 

1 1 16 


DEFB 

MCACY 


1 AAA 

08 

1117 


DEFB 

8 ; EXPAND 


1AAB 

F81E 

1118 


DEFW 

CACTUS 




1 1 19 

; INITIALIZE 

BULLET VECTORS 


1 AAD 

1 1 1200 

1120 

BORG : 

LD 

DE, BULVSZ 


1 ABO 

DD2U84F 

1 121 


LD 

IX, BULV1 


1 AB4 

012004 

1122 


LD 

BC, 4*256+20H 


1 AB7 

3E02 

1123 


LD 

A, 2 


1 AB9 

B8 

1124 

BULLF’ 

CP 

B 


IAEA 

2002 

1 125 


JR 

NZ, TIYU-* 


1 ABC 

0E60 

1126 


LD 

C, 60H 


1 ABE 

DD7100 

1127 

TIYU 

LD 

(IX+VBMR), C 


1 AC 1 

DD360701 

1 1 28 


LD 

( IX+VBXCHK), 1 


1 ACS 

DD360C03 

1129 


LD 

( I X+VBYCHK), 3 


1 AC9 

DD 1 9 

1130 


ADD 

I X , DE 


1 ACB 

1 OEC 

1131 


DJNZ 

BULLP-* 




1132 

; FIRE 

UP INTERRUPTS 


1 ACD 

3E 1 D 

1133 


LD 

A, INTTBL. SHR. 8 


1 ACF 

ED47 

1134 


LD 

I, A 




1 135 

i 

IM 

2 ; DONE IN MENU 


1 ADI 

3E78 

1 136 


LD 

A, LFRVEC. AND. OFFH 




*MODCOMP Z— 80 

CROSS 
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SYSTEM PAGE 12 

AD DR 

OBJECT 

STMT 

LABEL OP CD 

OPERAND 

COMMENT 

1 AD 3 

D30D 

1 137 


OUT 

( INFBK ) , A 




1 1 38 







1 1 39 


; LET COWBOYS WALK OUT 




1140 





1 ADS 


1141 

WALK: SYSSUK PAWS 


1 ADS 

FF 

1141 

+ 

RST 

56 


1 AD6 

51 

1141 

+ 

DEFB 

PAWS+1 




1141 

+ 

IF 

PAWS. EQ. I NTPC 




1141 

+ 

END IF 


1 AD7 

64 

1 142 


DEFB 

100 


1 ADS 

F3 

1143 


DI 



1 AD9 

DD2 1 0D02 

1144 


LD 

IX, FNTSML 


1 ADD 


1145 


SYSTEM I NTPC: 


1 ADD 

FF 

1 145 

+ 

RST 

56 


1 ADE 

00 

1145 

+ 

DEFB 

I NTPC 




1145 


IF 

I NTPC. EQ. I NTPC 

>000 1 


1 145 

+ 1 NTF'@ DEFL 

1 




1145 

+ 

END IF 




1146 


, ERASE GET READY 


1ADF 


1147 


DO 

BLANK 


1 ADF 

2B 

1147 

+ 

DEFB 

BLANK+ 1 


1 AEO 

12 

1148 


DEFB 

18 


1AE1 

08 

1149 


DEFB 

8 


1 AE2 

FF 

1 1 50 


DEFB 

OFFH 


1 AES 

00000000 

1151 


XYDEFW ( GRX/4 ) +4000H, GRY 

1 AE7 


1 152 


TEXT 

DRAW, DRX, GRY, 

LARGE 

1 AE7 

35 

1152 

+ 

DEFB 

STRDIS+1 


1 AES 

40 

1152 

+ 

DEFB 

DRX 


1 AE9 

01 

1 152 

+ 

DEFB 

GRY 


IAEA 

OB 

1152 

+ 

DEFB 

LARGE 


1 AEB 

SB ID 

1152 

+ 

DEFW 

DRAW 


1 AED 


1 153 


DO 

CHRDIS 


1 AED 

33 

1153 

+ 

DEFB 

CHRDIS+1 


1 AEE 

20 

1154 


DEFB 

LBULX 


1 AEF 

02 

1155 


DEFB 

BSY 


1 AFO 

OB 

1 156 


DEFB 

BULT 


1AF1 

BB 

1157 


DEFB 

OBBH 

; BULLET 

1 AF2 


1 158 


DO 

MCALL 

; 5 MORE 

1 AF2 

07 

1158 

+ 

DEFB 

MCALL+1 


1 AF3 

571 B 

1159 


DEFW 

BULRIT 


1 AF5 


1 160 


DO 

SUCK 


1 AF5 

OD 

1160 

+ 

DEFB 

SUCK+ 1 


1AF6 

01 

1161 


DEFB 

0000000 1 B 


1 AF7 

68 

1162 


DEFB 

RE'ULX 

; DO THE RIGHT ONES 

1 AF8 


1 163 


DONT 

CHRDIS 

; DISPLAY FIRST ONE 

1 AF8 

32 

1 163 

+ 

DEFB 

CHRDIS 


1AF9 


1164 


DO 

MCALL 

; DISP THE OTHER 5 

1 AF9 

07 

1 164 

+ 

DEFB 

MCALL+ 1 


1 AFA 

57 1 B 

1165 


DEFW 

BULRIT 


1 AFC 


1 166 


DO 

PAWS 


1 AFC 

51 

1 166 

+ 

DEFB 

F'AWS+l 


1 AFD 

3C 

1167 


DEFB 

60 


1 AFE 


1 168 


DO 

BLANK 


1 AFE 

2B 

1168 

+ 

DEFB 

BLANK* 1 


1 AFF 

08 

1169 


DEFB 

8 


1 BOO 

08 

1170 


DEFB 

8 


1B01 

FF 

1171 


DEFB 

OFFH 




* MOD COMP Z-SO CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM PAGE 


ADDR 

OBJECT 

STMT LABEL 

OPCD OPERAND 

COMMENT 

1 B02 

00000000 

1172 

XYDEFW < DRX/4 ) +4000H, GRY 

1 BO 6 


1 173 

EXIT 


1 B06 

02 

1173 + 

DEFB XINTC 


0000 


1173 +INTP6 

DEFL 0 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 




1175 

i ##### 




1176 

; MAIN 

LOOP DURING ROUND 




1 177 

; GETS 

HANDLES, SETS VECTORS AND CHECKS 

BULLETS 

1B07 


1 178 

LOOP: 

SYSTEM INTPC 


1 BO 7 

FF 

1178 

+ 

RST 56 


1 BOB 

00 

1178 

+ 

DEFB INTPC 




1178 

+ 

IF INTPC. EQ. INTPC 


>0001 


1178 

+INTPG 

DEFL 1 




1 1 78 

+ 

END IF 


1B09 


1179 


DO SENTRY 


1B09 

43 

1179 

+ 

DEFB SENTRY+1 


1 BOA 

1 402 

1 180 


DEFW ALLEYS 


1 BOC 


1 181 


DO DOIT 


1 BOC 

45 

1 181 

+ 

DEFB DOIT+1 


1 BOD 

38 IB 

1 182 


DEFW DTAB 


1 BOF 


1 183 


EXIT 


1 BOF 

02 

1 183 

+ 

DEFB X INTO 


>0000 


1 1 S3 

+INTPG 

DEFL 0 





1 185 

; CHECK 

FOR DEATHS 

1 B 1 0 

DD21 184F 

1 186 

DEATH 

LD 

IX, BULV1 

1B14 

1 1 1200 

1187 


LD 

DE, BULVSZ 

1B17 

0604 

1188 


LD 

B, 4 

IB 19 

C5 

1 189 

LPPF'2 

PUSH 

BC 

1 B 1 A 

D5 

1 1 90 


PUSH 

DE 

1B1B 

CDCE 1 8 

1191 


CALL 

HITCHK 

1B1E 

D 1 

1 1 92 


POP 

DE 

1B1F 

Cl 

1193 


POP 

BC: 

1 B20 

DD1 9 

1 194 


ADD 

I X , DE 

1B22 

3ADE4F 

1 195 


LD 

A, (SEMI4S) ; CHECK IF DEATH MODE 

1 B25 

3D 

1 1 96 


DEC 

A 

1 B26 

28DF 

1197 


JR 

Z, LOOP-* 

1B28 

1 OEF 

1198 


DJNZ 

LPPF'2-* 

1B2A 

18DB 

1 199 


JR 

LOOP-* 



1200 

i 



1E2C 


1201 

ENDRND 

EXIT 


1E2C 

02 

1201 

+ 

DEFB 

X I NTC 

>0000 


1201 

+ 1 NTF'@ 

DEFL 

0 

1B2D 

C30C 1 A 

1 202 


JP 

STRND 



1203 

i 



IB 30 

3AF84F 

1204 

ENDGAM: 

LD 

A, ( GAMSTB ) 

1B33 

CB7F 

1205 


BIT 

GSBEND, A 

1 B35 

CS 

1206 


RET 

Z 

1 B36 


1 207 


SYSTEM QUIT 

1B36 

FF 

1207 

+ 

RST 

56 

1 B37 

78 

1207 

+ 

DEFB 

QUIT 



1207 

+ 

IF 

QUIT. EQ. INTPC 



1207 

+ 

END IF 

1 B38 


1209 

DTAB: 

JMP 

SCT7, ENDRND 



* MOD COMP Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


AD DR 

OBJECT 

STMT 

LABEL 

1 B38 

08 

1209 

+ 

IB 39 

2C1B 

1 209 

+ 



1209 

+ 



1209 

+ 

1 B3B 


1210 


1B3B 

09 

1210 

+ 

1 BSC 

2C1B 

1210 

+ 



1210 

+ 



1210 

+ 

1 BSE 


121 1 


1 BSE 

5C 

121 1 

+ 

1 B3F 

B918 

121 1 

+ 



1211 

+ 



1211 

+ 

1B41 


1212 


1B41 

5D 

1212 

+ 

1B42 

BUS 

1212 

+ 



1212 

+ 



1212 

+ 

1 B44 


1213 


1B44 

55 

1213 

+ 

1 B45 

8F18 

1213 

+ 



1213 

+ 



1213 

+ 

1 B47 


1214 


1 B47 

57 

1214 

+ 

1 B48 

9518 

1214 

+ 



1214 

+ 



1214 

+ 

1 B4A 


1215 


1B4A 

93 

1215 

+ 

1 B4B 

8D1 8 

1215 

+ 



1215 

+ 



1215 

+ 

1B4D 


1216 


1B4D 

54 

1216 

+ 

1B4E 

FF17 

1216 

+ 



1216 

+ 



1216 

+ 

1B50 


1217 


1 B50 

56 

1217 

+ 

1B51 

OA 1 8 

1217 

+ 



1217 

+ 



1217 

+ 

1B53 


1218 


1B53 

51 

1218 

+ 

1 B54 

El 17 

1218 

+ 



1218 

+ 

1B56 

CO 

1218 

+ 



1218 

+ 


1B57 

1220 BULRIT 

1B57 32 

1220 + 


OPCD OPERAND COMMENT 

DEFB SCT7 
DEFW ENDRND 
IF 0 
END IF 

JMP SFO, ENDRND 
DEFB SFO 
DEFW ENDRND 
IF 0 
END IF 

RC SPO, PF’OTO 
DEFB SP0+40H 
DEFW PPOTO 
IF 0 
END IF 

RC SP1 , PPOT 1 

DEFB SP1+40H 
DEFW PPOT 1 
IF 0 
END IF 

RC SJO, JOYO 
DEFB SJ0+40H 
DEFW JOYO 
IF 0 
END IF 

RC SJ1 , JOY 1 
DEFB SJ1+40H 
DEFW JOY 1 
IF 0 
ENDIF 

MC SKYD, NBRK 
DEFB SKYD+80H 
DEFW NBRK 
IF O 
ENDIF 

RC STO, FIREO 
DEFB ST0+40H 
DEFW FIREO 
IF 0 
ENDIF 

RC ST 1 , F I RE 1 

DEFB ST1+40H 
DEFW FIRE1 
IF 0 
ENDIF 

RC SSECj DCLOCK, +END 

DEFB SSEC+40H 

DEFW DCLOCK 

IF O+END 

DEFB O+END 

ENDIF 


DONT CHRDIS 
DEFB CHRDIS 


PAGE 15 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND 

COMMENT 

1B58 


1221 


DONT 

CHR'DIS 


1B58 

OjL 

1221 

+ 

DEFB 

CHRDIS 


1B59 


1222 


DONT 

CHRDIS 


1 B59 

32 

1222 

+ 

DEFB 

CHRDIS 


1 B5A 


1223 


DONT 

CHRDIS 


1B5A 

32 

1223 

+ 

DEFB 

CHRDIS 


1B5B 


1224 


DONT 

CHRDIS 


1 BSE 

32 

1224 

+ 

DEFB 

CHRDIS 


1 BSC 


1225 


DONT 

MRET 


1 BSC 

08 

1225 

+ 

DEFB 

MRET 





1227 

; *****■«■*■«•*** **«•**■»•** *****■«•* ****•#• ***■«•# 



1228 

; * GUNFIGHT WRITE INTERRUPT ROUTINE * 



1229 

i tt*********************************** 

1 BSD 

08 

1230 

GFWRIT : 

EX AF, AF" 

1 BSE 

D9 

1231 


EXX 

1B5F 

DDES 

1232 


PUSH IX 

1B61 

3E78 

1233 

BEG I NT: 

LD A, LFRVEC. AND. OFFH ; ESTABLISH TICKS INT 

1B63 

D30D 

1234 


OUT < INFBK ) , A 

1B65 

3EC8 

1235 


LD A, LFRLIN 

1 B67 

D30F 

1 236 


OUT < I NL I N ) , A 

1 B69 

21 124F 

1237 


LD HL, WRITQ ; GET FIRST WRITE Q ENTRY 

1B6C 

CD6B1D 

1238 


CALL FIRST 

1B6F 

CD29 1 D 

1239 


CALL DELQ ; DROP FROM WRITE Q 

1B72 

AF 

1240 


XOR A 

1B73 

32FF0F 

1241 


LD < WASTE ) , A 

1E76 

DDCE0146 

1242 


BIT VBSWAG, (IX+VBSTAT) ; WAGON? 

1B7A 

2028 

1243 


JR NZ,GFWRT1-* ; JUMP IF YEP 



1244 

; GUNFIGHTER - BLANKETH HIM 

1B7C 

1 10514 

1245 


LD BE, 1405H ; LOAD BLANKING PARMS 

1B7F 


1246 


SYSTEM VBLANK ; CALL BLANKER 

1 B7F 

FF 

1246 

+ 

RST 56 

1 B80 

28 

1246 

+ 

DEFB VBLANK 



1246 

+ 

IF VBLANK. EQ. INTPC 



1246 

+ 

END IF 

1B81 

26 IE 

1247 


LD H, LEGO. SHR. 8 ; WRITE LEG PATTERN 

1B83 

DD6E12 

1248 


LD L, ( I X+VBLEG ) 

1 B86 

2C 

1 249 


INC L ; SKIP OVER LINK AND TIME 

1 B87 

2C 

1250 


INC L 

1B88 


1251 


SYSTEM VWRITR ; AND WRITE LEG 

1B88 

FF 

1251 

+ 

RST 56 

1 B89 

IE 

1251 

+ 

DEFB VWRITR 



1251 

+ 

IF VWRITR. EQ. INTPC 



1251 

+ 

END IF 



1252 

, IS GUNFIGHTER DEAD? 

1 BSA 

DDCB016E 

1253 


BIT VBSINT, < IX+VBSTAT) 

1 BSE 

2030 

1254 


JR NZ, GFWRT5-$ ; JUMP IF SO 

1 B90 

2 IDE ID 

1255 


LD HL, ARMTBL ; LOOKUP ARM PATTERN 

1B93 

1 600 

1256 


LD D, 0 

1 B95 

DD5E0F 

1257 


LD E, ( I X+VBARM ) 

1B98 

19 

1258 


ADD HL, DE 

1B99 

5E 

1259 


LD E, (HL) 

1B9A 

23 

1260 


INC HL 
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*MODCOMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


AD DR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 

1B9B 

56 

1261 


LD D, < HL ) 

1B9C 

EB 

1262 


EX DE, HL 

1 B9D 


1263 


SYSTEM VWRITR ; WRITE ARM PATTERN 

1B9D 

FF 

1263 

+ 

RST 56 

1 B9E 

IE 

1263 

+ 

DEFB VWRITR 



1263 

+ 

IF VWRITR. EQ. I NTPC 



1 263 

+ 

END IF 

1 B9F 

21101F 

1264 


LD HL, GFBODY ; LOAD BODY PATTERN 

1 BA2 

1 808 

1265 


JR GFWRT2-* ; JOIN WAGON WRITE 



1 266 

; BLANK 

! THE WAGON 

1 BA4 

1 10416 

1267 

GFWRT 1 : 

LD DE, 1604H ; LOAD WAGON SIZE 

1 BA7 


1 268 


SYSTEM VBLANK 

1 BA7 

FF 

1 268 

+ 

RST 56 

1 BAS 

28 

1268 

+ 

DEFB VBLANK 



1268 

+ 

IF VBLANK. EQ. I NTPC 



1268 

+ 

END IF 

1 BA9 

2 140 IF 

1269 


LD HL, WAGPAT 

1 BAC 


1270 

GFWRT2: 

SYSTEM VWRITR ; NOW WRITE 

1 BAC 

FF 

1270 

+ 

RST 56 

1BAD 

IE 

1 270 

+ 

DEFB VWRITR 



1270 

+ 

IF VWRITR. EQ. I NTPC 



1270 

+ 

END IF 

1BAE 

DD720E 

1271 

GFWRT4 : 

LD ( I X+VBOAH ) , D 

1BB1 

DD730D 

1272 


LD ( I X+VBOAL ) , E 

1 BB4 

21 154F 

1273 

GFWRT3: 

LD HL, VECQ ; ADD VECTOR TO VECTOR i 

1 BB7 

CD541D 

1274 


CALL ADDTQ 

1BBA 

DDE1 

1275 


POP I X 

1BBC 

08 

1276 


EX AF, AF" 

1BBD 

D9 

1277 


EXX 

1 BEE 

FB 

1278 

EIRE 

El 

1 BBF 

C9 

1279 


RET 

1 ECO 

2 IOC IF 

1 280 

GFWRT 5: 

LD HL, NULF'AT 

1 BC3 

18E7 

1281 


JR GFWRT2-* 



1282 

i #*#****#*##**#***##*##**##•*•*■*##•«•■*•#■■«■ 



1283 

; * GUNFIGHT LOW FOREGROUND ROUTINE * 



1 284 


1 BC5 

F5 

1 285 

GFLFR: 

PUSH AF 

1B.C6 

C5 

1286 


PUSH BC 

1 BC7 

D5 

1287 


PUSH DE 

1 BC8 

E5 

1288 


PUSH HL 

1 BC9 

DDES 

1289 


PUSH IX 



1290 

; BUMP 

TIME BASES OF ACTIVE OR INTERCEPTED VECTOR: 

1BCB 

21 194F 

1291 


LD HL, BULV1+VBSTAT 

1 BCE 

1111 00 

1292 


LD DE, BULVSZ-1 

1BD1 

0604 

1293 


LD B, 4 

1BD3 

CD 1 El Ci 

1294 


CALL TBUMP 

1 BD6 


1 295 


INC HL ; SKIP LINK FIELD 

1 BD7 

1 1 1 600 

1296 


LD DE, GFVSIZ-1 

1 BDA 

0603 

1297 


LD B, 3 

1 BDC 

CD1E1D 

1298 


CALL TBUMP 



1299 

; LOOP 

TO IJNWRITE, THEN WRITE ALL 4 BULLETS 



1300 

, BUT FIRST, A WORD TO OUR SHIFTER 

1 BDF 

AF 

1301 


XOR A 

1 BEO 

32FF0F 

1302 


LD (WASTE), A 

1BE3 

0604 

1 303 


LD B, 4 

1 BE5 

DD21 1 84F 

1304 


LD IX, BULV1 


1305 ; IJNWRITE THIS GUY? 



PAGE IS 


*MODl 

;omp z-so 

CROSS 

ASSEMBLER* HOME VIDEO GAME 

SYSTEM PAGE 18 

ADDR 

OBJECT 

STMT 

LABEL 

OP CD 

OPERAND 

COMMENT 

1 BE 9 

DDCB0176 

1 306 

WRBUL 1 

: BIT 

VBBLNK, ( I X+VBSTAT ) 

1BED 

281 1 

1 307 


JR 

Z, WRBUL2-* 

JUMP IF NOT 

1E:EF 

DD660E 

1 308 


LD 

H, < I X+VBOAH ) 


1 BF2 

DD6E0D 

1 309 


LD 

L, < IX+VBOAL) 


1BF5 

DD7E0F 

1310 


LD 

A, ( IX+VBARM) 

GET LAST MR 

1 BF8 

D30C 

131 1 


OUT 

(MAGIC), A 


1BFA 

36C0 

1312 


LD 

( HL ) , OCOH 

IJNWRITE BULLET 

1BFC 

DDCB01B6 

1313 


RES 

VBBLNK, ( I X+VBSTAT) ; CLEAR BLANK BIT 



1314 

; SHALL WE WRITE THIS GUY? 


1 COO 

DDCB017E 

1315 

WRBUL2 

: BIT 

VBSACT , <1 X+VBSTAT) 

1C04 

2S2B 

1316 


JR 

Z, WRBUL4-* 


1C 06 

DD560B 

1317 


LD 

D, < IX+VBYH) 


ICO 9 

DD5E06 

1318 


LD 

E, ( IX+VBXH) 


1 COC 

DD7E00 

1319 


LD 

A, < IX+VBMR) 


1 COF 


1 320 


SYSTEM RELABS 


1C0F 

FF 

1320 

+ 

RST 

56 


1C 10 


1 320 

+ 

DEFB 

RELABS 




1 320 

+ 

IF 

RELABS. EQ. I NTPC 



1 320 

+ 

END IF 


1C1 1 

DD720E 

1321 


LD 

< I X+VBOAH), D 


1C 14 

DD730D 

1 322 


LD 

(IX+VBOAL), E 


1C17 

DD770F 

1 323 


LD 

(IX+VBARM), A 


1 C 1 A 

2 1 0040 

1324 


LD 

HL, NORMEM-SCREEN 

1C1D 

19 

1325 


ADD 

HL, DE 


4FFF 


1 326 

DIFER 

EQU 

WASTE-SCREEN+NORMEM 

1C1E 

7E 

1327 


LD 

A, (HL) 


1C1F 

EB 

1 328 


EX 

DE, HL 


1C20 

36 CO 

1329 


LD 

< HL ) , OCOH 


1 C22 

B7 

1 330 


OR 

A 


1C23 

2 SOS 

1331 


JR 

Z, WRBUL3-* 

JUMP IF NOT 

1C25 

DDCBO 1 BE 

1332 


RES 

VBSACT, (IX+VB 

STAT) ; KILL ACTIVE BIT 

1C29 

DDCB01EE 

1 333 


SET 

VBSINT , ( IX+VB 

ST AT ) ; SET INTERCEPT BIT 

1C2D 

DDCBO 1F6 

1334 

WRBUL3 

SET 

VBBLNK, ( I X+VBSTAT) ; SET BLANK BIT 



1335 

; STEP 

TO NEXT BULLET VECTOR, LOOP BACK IF NOT DONE 

1C31 

1 1 1 200 

1 336 

WRBUL4 

LD 

DE, BULVSZ 


1C 34 

DD19 

1337 


ADD 

IX, DE 


1 C36 

1 OB 1 

1338 


DJNZ 

WRBUL 1 -* 




1339 

, GET NEXT PATTERN TO WRITE, AND SCHEDULE HIM 

1 CSS 

21 124F 

1340 


LD 

HL, WRITQ 


1C3B 

CD6B1D 

1341 


CALL 

FIRST 


1C3E 

2812 

1342 


JR 

Z, WRBL5A-* 

JUMP IF EMPTY Q 

1C 40 

3E7A 

1343 


LD 

A, WRTVEC. AND. OFFH ; SET FEEDBACK REG 

1C42 

D30D 

1344 


OUT 

( INFBK) , A 


1C44 

DD7E0B 

1345 


LD 

A, ( IX+VBYH) 

WHICH WINDOW TO USE? 

1C47 

FE32 

1 346 


CP 

WINBND 

COMPARE TO WINDOW BOUNDARY 

1C49 

3E00 

1347 


LD 

A, BOTLIN 

ASSUME BOTTOM LINE 

1C4B 

3002 

1348 


JR 

NC, WRBUL5-* 

JUMP IF GOOD GUESS 

1C4D 

3E6A 

1349 


LD 

A, TOPLIN 

WRONG - USE TOP 

1C4F 

D30F 

1 350 

WRBIJL5 

OUT 

( INLIN), A 

SET LINE REGISTER 

1C51 

FB 

1351 


El 





1352 

; LOOP 

THRU VECTORING THOSE BULLETS 

1C52 

DD2U84F 

1353 

WRBL5A 

LD 

IX, BIJLV1 


1 C56 

0604 

1354 


LD 

B, 4 


1 CSS 

218F1D 

1355 


LD 

HL, BULLMT 

HL = BULLET LIMITS TABLE 

1 C5B 

1 1 1200 

1 356 


LD 

DE, BULVSZ 


1 C5E 

DDCBO 17E 

1357 

WRBUL 6 

BIT 

VBSACT, < I X+VBSTAT) ; ACTIVE BULLET? 

1C62 

280C 

1358 


JR 

Z, WRBUL7-* 




*MODCOMP Z —SO CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
ADDR OBJECT STMT LABEL OF'CD OPERAND COMMENT 


PAGE 1 9 


1 C64 


1359 

SYSTEM VECT 


1C 6 4 

FF 

1 359 

+ RST 

56 


1C 65 

3E 

1 359 

+ DEFB 

VECT 




1359 

+ IF 

VECT. EQ. I NTPC 




1359 

+ END IF 


1C 66 

DDCB075E 

1 360 

BIT 

VBCLAT, (IX+VBXCHK) ; DID Y HIT EDGE? 

1C6A 

2804 

1361 

JR 

Z, WRBUL7-* 

NOPE 

1C6C 

DDCB01BE 

1 362 

RES 

VBSACT , (IX+VB 

STAT) ; DEACTIVATE BULLET 

1C70 

DD19 

1363 

WRBUL7: ADD 

IX, DE 


1 C72 

IDEA 

1364 

DJNZ 

WRBUL6-* 

LOOP BACK 



1365 

; NOW PUT SOMETHING ON THE 

WRITE Q 

1C74 

0602 

1 366 

LD 

B, 2 

MAX 2 TIMES THRU 

1C76 

21 154F 

1367 

LD 

HL, VECQ 


1C79 

CD6B1D 

1368 

GVECT : CALL 

FIRST 

GET VECTOR Q ENTRY 

1 C7C 

C AFC 1C 

1369 

JP 

Z, GVECT4 

JUMP IF Q EMPTY 

1C7F 

CD291D 

1370 

CALL 

DELQ 

DROP FROM VECTOR Q 

1CS2 

FB 

1371 

El 





1 372 

; WAGON? 



1CS3 

DDCB0146 

1373 

BIT 

VBSWAG, ( I X+VBSTAT ) 

1 C87 

C 207 ID 

1374 

JP 

NZ, GVECT5 

JUMP ON WAGON 



1375 

; DEAD? 



1 C8A 

DDCB016E 

1 376 

BIT 

VBSINT , ( I X+VBSTAT) 

1CSE 

2025 

1377 

JR 

NZ, GVECT l-$ 

JUMP IF DEAD 



1378 

; ZERO VELOCITY? 


1 C90 

DD7E03 

1379 

LD 

A, < IX+VBDXL) 


1093 

DDB604 

1380 

OR 

( IX+VBDXH) 


1C96 

DDE 608 

1381 

OR 

( IX+VBDYL) 


1C99 

DDE 609 

1382 

OR 

( I X+VBDYH ) 


1 C9C 

2017 

1383 

JR 

NZ, GVECT l-$ 

GVECT 1 IF NONZERO 

1C9E 

DD7702 

1384 

LD 

( IX+VBTIMB) , A 

; ZERO TIME BASE 

1CA1 

DDCB0166 

1385 

BIT 

VBSNOM, ( I X+VBSTAT) ; ALREADY STATIONARY? 

1 CAS 

2036 

1386 

JR 

NZ, GVEC3A-* 




1387 

; SET STATIONARY LEGS 


1CA7 

DD36124F 

1388 

LD 

< IX+VBLEG), LEGO. AND. OFFH 

1CAB 

DDCB01DE 

1 389 

SET 

VBSCHG, < I X+VBSTAT) i SET CHANGED 

1CAF 

DDCB01E6 

1390 

SET 

VBSNOM, < I X+VBSTAT) ; AND STATIONARY 

1 CBS 

1828 

1391 

JR 

GVEC3A-* 

JUMP TO ARM CHECK 



1392 

; MOVING GUNFIGHTER 




1393 

; VECTOR 



1 CBS 

2 187 ID 

1394 

GVECT 1: LD 

HL, GUNLMT 

LOAD GF LIMITS 

1 CBS 


1395 

SYSTEM VECT 


1 CBS 

FF 

1395 

+ RST 

56 


1CB9 

3E 

1395 

+ DEFB 

VECT 




1395 

+ IF 

VECT. EQ. I NTPC 




1395 

+ END IF 


1CBA 

2808 

1396 

JR 

Z, GVECT2-$ 

JUMP IF HE DIDN'T MOVE 

ICBC 

DDCB01DE 

1397 

SET 

VBSCHG, < I X+VBSTAT) ; SET CHANGED BIT 

1 CCO 

DDCB01A6 

1398 

RES 

VBSNOM, ( I X+VBSTAT) ; CLEAR NOT MOVING STATU 



1 399 

; NEED WE GO 

TO NEXT CELL 

IN ANIMATION SEQUENCE? 

1CC4 

DD7E1 1 

1400 

GVECT2 : LD 

A, < I X+VBLEGT ) 

; A = ANIMATION TIMER 

1CC7 

91 

1401 

SUB 

c 

SUBTRACT TIME BASE 

1CC8 

F2DA1C 

1402 

JP 

P, GVECT3 

JUMP IF NOT COUNTED DOWN 



1403 

; GET NEXT CELL 


1 CCB 

DD5E12 

1404 

LD 

E, ( IX+VBLEG) 

GET LINK 

1CCE 

16 IE 

1405 

LD 

D, LEGO. SHR. 8 

SET H. 0. PART 

1 C-DO 

1A 

1 406 

LD 

A, (DE) 

A = NEXT 

1CD1 

DD7712 

1407 

LD 

< IX+VBLEG), A 
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*MGDC0MP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OF'CB 

OPERAND COMMENT 

1 CD4 

13 

1408 


INC 

DE ; STEP TO TIMER 

1CD5 

1A 

1 409 


LD 

A, (DE) ; GET NEW TIMER 

1 CDS 

DDCB01DE 

1410 


SET 

VBSCHG, ( IX+VBSTAT) ; SET CHANGED BIT 

1CDA 

DD77 1 1 

1411 

GVECT3 

: LD 

( I X+VBLEGT ) , A ; STORE BACK TIMER 



1412 

; DID 

ARM CHANGE? 

1 CDD 

DD7E0F 

1413 

GVEC3A 

: LD 

A, ( IX+VBARM) 

1CE0 

DDBE 1 0 

1414 


CF' 

( I X+VBOARM ) ; COMPARE TO OLD ARM 

ICES' 

2807 

1415 


JR 

Z,GVEC3B-* ; JUMP IF NO CHANGE 

1CE5 

DDCB01DE 

1416 


SET 

VBSCHG, ( IX+VBSTAT) ; SET CHANGED BIT 

1CE9 

DD7710 

1417 


LD 

( IX+VEiOARM), A 



1418 

; ADD 

ITEM TO WRITE Q? 

1C EC 

DDCB015E 

1419 

GVEC3B 

: BIT 

VBSCHG, (IX+VBSTAT) 

1CF0 

2020 

1420 


JR 

NZ, GVECT 6-$ i YES GVECT6 



1421 

i NO CHANGE 

- LINK TO VECTOR Q 

1CF2 

21 154F 

1422 


LD 

HL, VECQ 

1CF5 

CD541D 

1423 


CALL 

ADDTQ 

1CF8 

05 

1424 


DEC 

B 

1CF9 

C2791C 

1425 


JP 

NZ, GVECT ; SUB FOR DJNZ 

1 CFC 

FB 

1426 

GVECT4 

El 


1CFD 

CD0002 

1427 


CALL 

STIMER 

1 DOO 

DDE 1 

1428 


POP 

IX 

1 D02 

El 

1429 


POP 

HL 

1 DOS 

D1 

1430 


POP 

DE 

1 D04 

Cl 

1431 


POP 

BC 

1 DOS 

FI 

1432 


POP 

AF 

1 DOS 

C9 

1433 


RET 




1434 

; VECTOR AND 

Q WAGON 

1D07 

217C1D 

1435 

GVECT5 

LD 

HL, WAGLMT 

1D0A 


1436 


SYSTEM VECT 

1 DOA 

FF 

1436 

+ 

RST 

56 

1 DOB 

3E 

1436 

+ 

DEFB 

VECT 



1436 

+ 

IF 

VECT. EG). I NTPC 



1436 

+ 

END IF 

1 DOC 

21154F 

1437 


LD 

HL, VECQ 

1D0F 

CD291D 

1438 


CALL 

DELQ ; REMOVE FROM VECTOR Q 

1D12 

DDCB019E 

1439 

GVECT6 

RES 

VBSCHG, (IX+VBSTAT) 

1 D 1 6 

21 124F 

1440 


LD 

HL, WRITQ 

1D19 

CD541D 

1441 


CALL 

ADDTQ 

1D1C 

1 8DE 

1442 


JR 

GVECT4-* ; JUMP BACK TO QUIT 



1443 

; ROUTINE TO 

BUMP TIME BASES OF VECTORS 

1D1E 

7E 

1444 

TBUMP: 

LD 

A, (HL) ; GET STATUS 

1D1F 

23 

1445 


INC 

HL 

1 D20 

E6A0 

1446 


AND 

OAOH ; ACTIVE OR INTERCEPTED? 

1D22 

2801 

1447 


JR 

Z, TBUMF'l-* ; NO - TBUMP 1 

1D24 

34 

1448 


INC 

<HL) ; BUMP THE TIME BASE 

1D25 

19 

1449 

TBUMF'l 

ADD 

HL, DE 

1D26 

1 OF 6 

1450 


DJNZ 

TBUMF'-* 

1D28 

C9 

1451 


RET 




1452 

; SUBROUTINE 

TO DELETE ENTRY AT FRONT OF Q 



1 453 

i ENTRY: 

HL = HEAD-TAIL, IX = OBJECT, A = CLOBBERE 

1D29 

F3 

1454 

DELQ: 

DI 

1D2A 

DD7EFF 

1455 


LD 

A, (IX+NEXT) ; HEAD = NEXT ( OBJECT ) 

1 D2D 

77 

1456 


LD 

(HL), A 

1 D2E 

A7 

1457 


AND 

A ; IS HEAD NOW NIL? 

1D2F 

CO 

1458 


RET 

NZ ; QUIT IF NOT 

1 D30 

23 

1459 


INC 

HL ; YES - SET TAIL = NIL TOO 

1D31 

77 

1 460 


LD 

< HL ) , A 


NIL TOO 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

1D32 

2B 

1461 


DEC 

HL 

1 D33 

C9 

1462 


RET 


1 D34 

DD 360332 

1 463 

COW I NT 

LD 

( IX+VBDXL), 50 ; SLOW WALK OUT 

1 D38 

DD360180 

1464 


LD 

( IX+VBSTAT), SOH ; ACTIVATE 

1 DSC 

DD360701 

1 465 


LD 

( IX+VBXCHK), 1 

1 D40 

Ei D 360 CO 1 

1466 


LD 

( IX+VBYCHK), 1 

1 D44 

DD360604 

1467 


LD 

( IX+VBXH), 4 

1 D48 

DD 36 OB 28 

1468 


LD 

( IX+VBYH), 40 

1 D4C 

DD360F06 

1469 


LD 

( I X+VBARM ) , 6 ; SET ARM STRAIGHT 

1 D50 

DD36124F 

1470 


LD 

( IX+VBLEG), LEGO. AND. OFFH 



1471 

i 

JP 

ADDTQ 



1472 

i SUBROUTINE 

TO APPEND ENTRY TO END OF Q 



1473 

; ENTRY: 


HL = HEAD-TAIL. BYTES, IX = OBJECT, A, DE 

1D54 

DDES 

1474 

ADDTQ: 

PUSH 

IX i DE = ENTRY 

1 D56 

D1 

1475 


POP 

DE 

1 D57 

F3 

1476 


D I 


1D5S 

DD36FF00 

1477 


LD 

( I X+NEXT ) , 0 ; NEXT < OBJ) =NIL 

1 DSC 

23 

1478 


INC 

HL 

1D5D 

7E 

1479 


LD 

A, (HL) ; A = OLD TAIL 

1D5E 

73 

1 480 


LD 

(HL), E i SET TAIL = . OBJ 

1D5F 

A7 

1481 


AND 

A ; WAS OLD TAIL NIL? 

1D60 

2806 

1482 


JR 

Z, ADDTQ l-$ ; JUMP IF SO 



1483 

; NONNIL OLD 

TAIL, SET NEXT ( OLDTAIL ) =. OBJ 

1D62 

5F 

1484 


LD 

E, A ; DE = . NEXT ( OLDTAIL ) 

1 D63 

7E 

1485 


LD 

A, (HL) ; A = . OBJ (FROM NEW TAIL) 

1 D64 

2B 

1486 


DEC 

HL 

1 D65 

IB 

1487 


DEC 

DE 

1 D66 

12 

1488 


LD 

0 

m 

ID 67 

C9 

1489 


RET 




1 490 

; NIL OLD TAIL CASE 

ID 68 

2B 

1491 

ADDTQ 1 : 

DEC 

HL ; BACKUP TO HEAD 

1D69 

73 

1492 


LD 

( HL ) , E ; HEAD = . OBJ 

1 D6A 

C9 

1493 


RET 




1 494 

; SUBROUTINE 

TO POINT IX AT FIRST ENTRY ON A Q 



1495 

; ENTRY: 


HL = Q HEAD-TAIL 



1496 

i EXIT: 


IX, DE = OBJECT, A = L. 0. BYTE OF OBJECT 



1497 

i 


NONZERO STATUS SET IF Q NOT EMPTY 

1 D6B 

F3 

1498 

FIRST: 

DI 


1 D6C 

5E 

1499 


LD 

E, (HL) 

1 D6D 

23 

1 500 


INC 

HL 

1 D6E 

93 

1501 


INC 

HL 

1 D6F 

56 

1502 


LD 

D, (HL) ; D = H. 0. ADDR. BYTE 

1D70 

2B 

1503 


DEC 

HL 

1D7 1 

2B 

1504 


DEC 

HL 

1D72 

7B 

1505 


LD 

A, E ; E = HEAD OF Q 

1D73 

A7 

1506 


AND 

A 

1 D74 

D5 

1507 


PUSH 

DE 

1 D75 

DDE1 

1508 


POP 

IX 

1 D77 

C9 

1509 


RET 



1511 ; **** -ft**** ****** *■***#•* * 

1512 ; * GUNFIGHT CONSTANTS * 

1513 : ********************** 
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ADDR 

OBJECT 

STMT 

LABEL 

OF'CD 

OPERAND COMMENT 



1514 


ORG 

<$+l ). AND. OFFFEH 

1D78 


1515 

INTTBL: 



1D78 

C51B 

1516 

LFRVEC: 

DEFW 

GFLFR 

1D7A 

5D1B 

1517 

WRTVEC: 

DEFW 

GFWRIT 



1518 

; WAGON 

LIMITS TABLE 

1D7C 

OA 

1519 

WAGLMT : 

DEFB 

TLINE 

1 D7D 

44 

1520 


DEFB 

BLINE-24 

1D7E 

47455420 

1521 

GETRDY : 

DEFM 

'GET READY' 



1522 

; GUNF I GHTER 

LIMITS 

1D87 

00 

1523 

GUNLMT : 

DEFB 

0 

1D88 

2F 

1524 


DEFB 

LCACX-17 

1 D89 

OA 

1525 


DEFB 

TLINE 

1D8A 

48 

1526 


DEFB 

BLINE-20 

1 D8B 

44524157 

1527 

DRAW: 

DEFM 

'DRAW' 



1 528 

; BULLET LIMITS 

1D8F 

00 

1529 

BULLMT 

DEFB 

0 

1 D90 

9F 

1530 


DEFB 

159 

1D91 

09 

1531 


DEFB 

ALINE 

1 D92 

5B 

1532 


DEFB 

BLINE-1 



1533 

BN 

MACR 

#DX, #ARMX, #dy, #army 



1534 


DEFW 

#DX 



1535 


DEFB 

#ARMX 



1 536 


DEFW 

#DY 



1537 


DEFB 

#ARMY 



1538 


ENDM 


1 D93 


1539 

BULTAB 

BN 

768, 15, 768, 15 

1 D93 

0003 

1 539 

+ 

DEFW 

768 

1D95 

OF 

1 539 

+ 

DEFB 

15 

1D96 

0003 

1539 

+ 

DEFW 

768 

1 D98 

OF 

1 539 

+ 

DEFB 

15 

1 D99 


1540 


BN 

1024, 15, 512, 12 

1D99 

0004 

1540 

+ 

DEFW 

1024 

1 D9B 

OF 

1540 

+ 

DEFB 

15 

1 D9C 

0002 

1540 

+ 

DEFW 

512 

1D9E 

oc 

1540 

+ 

DEFB 

12 

1D9F 


1541 


BN 

1024, 15, 256, 11 

1D9F 

0004 

1541 

+ 

DEFW 

1024 

1DA1 

OF 

1541 

+ 

DEFB 

15 

1 DA2 

0001 

1541 

+ 

DEFW 

256 

1 DA4 

OB 

1541 

+ 

DEFB 

1 1 

1DA5 


1542 


BN 

1024, 15, 0, 8 

1DA5 

0004 

1542 

+ 

DEFW 

1024 

1DA7 

OF 

1542 

+ 

DEFB 

15 

1 DAS 

0000 

1542 

+ 

DEFW 

0 

1 DAA 

08 

1542 

+ 

DEFB 

8 

1DAB 


1543 


BN 

1024, 15, -256, 6 

1DAB 

0004 

1543 

+ 

DEFW 

1024 

1 DAD 

OF 

1 543 

+ 

DEFB 

15 

1DAE 

OOFF 

1543 

+ 

DEFW 

-256 

1 DBO 

06 

1543 

+ 

DEFB 

6 

1DB1 


1544 


BN 

1024, 15, -512, 4 

1DB1 

0004 

1544 

+ 

DEFW 

1024 

1 DBS 

OF 

1544 

+ 

DEFB 

15 

1DB4 

OOFE 

1544 

+ 

DEFW 

-512 

1 DBS 

04 

1544 

+ 

DEFB 

4 

1DB7 


1545 


BN 

768, 15, -768, 3 

1 DB7 

0003 

1545 

+ 

DEFW 

768 
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A DDR 

OBJECT 

STMT 

LABEL 

OPCD 

OPERAND COMMENT 

1 DB9 

OF 

1545 

+ 

DEFB 

15 

IDEA 

00 FD 

1545 

+ 

DEFW 

-768 

1DBC 

03 

1545 

+ 

DEFB 

3 

1 DBD 


1 546 

LFTAB: 

DEF5 

72, 22, 44, 67, 14 

1 DBD 

48 

1546 

+ 

DEFB 

72 

1 DEE 

16 

1 546 

+ 

DEFB 

22 

1 DBF 

2C 

1546 

+ 

DEFB 

44 

1 DCO 

43 

1546 

+ 

DEFB 

67 

1 DC 1 

OE 

1546 

+ 

DEFB 

14 

1 DC 2 


1547 

RFTAB: 

DEF5 

18, 68, 40, 13, 63 

1DC2 

12 

1547 

+ 

DEFB 

18 

1 DCS 

44 

1547 

+ 

DEFB 

68 

1DC4 

28 

1547 

+ 

DEFB 

40 

1 DCS 

OD 

1547 

+ 

DEFB 

13 

1 DC 6 

3F 

1547 

+ 

DEFB 

63 

1DC7 

9D 

1548 

GFCOLS: 

DEFB 

9DH 

1DC8 

76 

1549 


DEFB 

76H 

1 DC 9 

FC 

1 550 


DEFB 

OFCH 

1 DC A 

87 

1551 


DEFB 

87H 

1 DCB 

9 Ei 

1 552 


DEFB 

9DH 

1 DCC 

76 

1553 


DEFB 

76H 

1 DCD 

6C 

1554 


DEFB 

6CH 

1 DCE 

87 

1555 


DEFB 

87H 

1 DCF 


1556 

SINIT: 

DEF8 

6, 6, 0, 0, 0, 30H, 30 H, 0 

1 DCF 

06 

1556 

+ 

DEFB 

6 

1 DDO 

06 

1556 

+ 

DEFB 

6 

1DD1 

00 

1556 

+ 

DEFB 

0 

1 DD2 

00 

1556 

+ 

DEFB 

0 

1 DD3 

00 

1556 

+ 

DEFB 

0 

1 DD4 

30 

1556 

+ 

DEFB 

30H 

1 DD5 

30 

1556 

+ 

DEFB 

30H 

1 DD6 

00 

1556 

+ 

DEFB 

0 

i DD7 


1557 


DEF4 

0, 80H, OFH, OFH 

1 DD7 

00 

1557 

+ 

DEFB 

0 

1 DD8 

80 

1557 

+ 

DEFB 

80H 

1 DD9 

OF 

1557 

+ 

DEFB 

OFH 

1DDA 

OF 

1557 

+ 

DEFB 

OFH 

>0007 


1558 

NUMB: 

EQLI 

0000011 IB i COLOR MASK 

>000B 


1559 

BULT 

EQU 

0000101 IB 

>00 OB 


1 560 

TIME 

EQLI 

0000101 IB 

>000B 


1561 

LARGE: 

EQU 

0000101 IB 

>00 OC 


1562 

LARG2 

EQU 

00001 100B 




1564 

; ********************** 



1565 

; * GUN FIGHT PATTERNS * 



1566 

; ********************** 



1567 





1568 

; PATTERN TABLES: 

1 DDE 

FC1D 

1569 

ARMTBL : DEFW 

ARMO 

1DDD 

0A1E 

1570 

DEFW 

ARM1 

1 DDF 

141E 

1571 

DEFW 

ARM2 

1DE1 

1C IE 

1572 

DEFW 

ARMS 

1DE3 

28 IE 

1573 

DEFW 

ARM4 

1 DE5 

36 IE 

1574 

DEFW 

ARMS 

1DE7 

46 IE 

1575 

DEFW 

ARM6 



PAGE 
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A DDR 

OBJECT 

STMT 

LABEL 

OF'CD OPERAND COMMENT 



1576 

; PATTERN DEFINITION MACROS 



1577 

DEF02 

MACR #A, #B 



1578 


DEFB 0#AH 



1579 


DEFB 0#BH 



1 580 


ENDM 



1581 

DEF03 

MACR #A, #B, #C 



1 582 


DEFB 0#AH 



1583 


DEFB 0#BH 



1 584 


DEFB 0#CH 



1585 


ENDM 



1 586 

DEF04 

MACR #A, #B> #C, #D 



1 587 


DEFB 0#AH 



1588 


DEFB 0#BH 



1589 


DEFB 0#CH 



1590 


DEFB 0#DH 



1591 


ENDM 

IDE 9 


1592 

TREE 

DEF2 1, 17 

1 DE9 

01 

1592 

+ 

DEFB 1 

IDEA 

11 

1592 

+ 

DEFB 17 

IDEE 

08 

1593 


DEFB 00001000B 

1 DEC 

1C 

1594 


DEFB 00011100B 

1DED 

3E 

1595 


DEFB 001 11 HOB 

IDEE 

6B 

1596 


DEFB 01 10101 IB 

1DEF 

08 

1597 


DEFB 00001000B 

1DFO 

08 

1598 


DEFB 00001000B 

IDF 1 

3C 

1 599 


DEFB 00 1111 OOB 

1DF2 

7E 

1 600 


DEFB 01 111 HOB 

1DF3 

A 9 

1601 


DEFB 10101001 B 

1DF4 

08 

1602 


DEFB 00001000B 

1DF5 

3C 

1603 


DEFB 00 1 1 1 1 OOB 

1 DF 6 

7E 

1604 


DEFB 0111111 OB 

1DF7 

EB 

1605 


DEFB 11 10101 IB 

1 DF 8 

89 

1606 


DEFB 1000 100 IB 

1DF9 

08 

1 607 


DEFB 00001000B 

IDF A 

1C 

1608 


DEFB 000 111 OOB 

1DFB 

AE 

1609 


DEFB 10101 HOB 

1BFC 


1610 

ARMO: 

DEF04 OA* OA, 2* 5 

1DFC 

OA 

1610 

+ 

DEFB OOAH 

1DFD 

OA 

1610 

+ 

DEFB OOAH 

1DFE 

02 

1610 

+ 

DEFB 02H 

1DFF 

05 

1610 

+ 

DEFB OSH 

1EOO 


1611 


DEF02 40, 00, 

1EOO 

40 

1611 

+ 

DEFB 040H 

1E01 

00 

161 1 

+ 

DEFB OOOH 

1E02 


1612 


DEF02 51, 00, 

1E02 

51 

1612 

+ 

DEFB 05 1H 

1E03 

00 

1612 

+ 

DEFB OOOH 

1E04 


1613 


DEF02 04, 00, 

1E04 

04 

1613 

+ 

DEFB 004H 

1E05 

00 

1613 

+ 

DEFB OOOH 

1E06 


1614 


DEF02 01,00, 

1E06 

01 

1614 

+ 

DEFB 00 1H 

1E07 

00 

1614 

+ 

DEFB OOOH 

1E08 


1615 


DEF02 00, 40, 

1E08 

00 

1615 

+ 

DEFB OOOH 

1E09 

40 

1615 

+ 

DEFB 040H 

1EOA 


1616 

ARM 1 : 

DEF04 OA, OA, 2, 3 
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ADDR 

OBJECT 

STMT 

LABEL 

OP CD OPERAND COMMENT 


1EOA 

OA 

1616 

+ 

DEFB OOAH 


IE OB 

OA 

1616 

+ 

DEFB OOAH 


1EOC 

02 

1616 

+ 

DEFB 02H 


1EOD 

03 

1616 

+ 

DEFB OSH 


1 EOE 


1617 


DEF02 50, 00, 


1EOE 

50 

1617 

+ 

DEFB 050H 


1EOF 

00 

1617 

+ 

DEFB OOOH 


1E10 


1618 


DEF02 14,00, 


1 E 1 0 

14 

1618 

+ 

DEFB 014H 


1E1 1 

00 

1618 

+ 

DEFB OOOH 


1 E 1 2 


1619 


DEF02 01,40, 


1 E12 

01 

1619 

+ 

DEFB 00 1H 


IE 13 

40 

1619 

+ 

DEFB 040H 


1E14 


1 620 

ARM2: 

DEF04 OA, OA, 2, 2 


1 E 1 4 

OA 

1 620 

+ 

DEFB OOAH 


IE 15 

OA 

1 620 

+ 

DEFB OOAH 


1 E 1 6 

02 

1620 

+ 

DEFB 02H 


1 E 1 7 

02 

1 620 

+ 

DEFB 02H 


1 E 1 8 


1621 


DEF02 54, 00, 


1 E 1 8 

54 

1621 

+ 

DEFB 054H 


1 E 1 9 

00 

1621 

+ 

DEFB OOOH 


1E1 A 


1622 


DEF02 55, 40, 


1E1A 

55 

1622 

+ 

DEFB 055H 


IE IB 

40 

1622 

+ 

DEFB 040H 


1E1C 


1 623 

ARMS: 

DEF04 OA, 7, 2, 4 


1E1C 

OA 

1623 

+ 

DEFB OOAH 


IE ID 

07 

1623 

+ 

DEFB 07 H 


1E1E 

02 

1623 

+ 

DEFB 02H 


1E1F 

04 

1623 

+ 

DEFB 04H 


1E20 


1624 


DEF02 10,00, 


1E20 

10 

1624 

+ 

DEFB 01 OH 


1E21 

00 

1624 

+ 

DEFB OOOH 


1E22 


1 625 


DEF02 05, 40, 


1E22 

05 

1 625 

+ 

DEFB 005H 


1 E23 

40 

1 625 

+ 

DEFB 040H 


1E24 


1 626 


DEF02 54, 00, 


1E24 

54 

1626 

+ 

DEFB 054H 


1E25 

00 

1626 

+ 

DEFB OOOH 


1E26 


1627 


DEF02 50, 00, 


1E26 

50 

1 627 

+ 

DEFB 050H 


1E27 

00 

1627 

+ 

DEFB OOOH 


1E28 


1 628 

ARM4 : 

DEF04 OA, 6, 2, 5 


1 E28 

OA 

1628 

+ 

DEFB OOAH 


1E29 

06 

1628 

+ 

DEFB 06H 


1E2A 

02 

1628 

+ 

DEFB 02H 


1 E2B 

05 

1628 

+ 

DEFB OSH 


1E2C 


1629 


DEF02 00, 40. 


1E2C 

00 

1629 

+ 

DEFB OOOH 


1E2D 

40 

1 629 

+ 

DEFB 040H 


1 E2E 


1 630 


DEF02 45, 00, 


1 E2E 

45 

1 630 

+ 

DEFB 045H 


1E2F 

00 

1 630 

+ 

DEFB OOOH 


1 E30 


1631 


DEF02 10,00, 


1 E30 

10 

1631 

+ 

DEFB 01 OH 


1E31 

00 

1631 

+ 

DEFB OOOH 


1E32 


1632 


DEF02 50, 00, 


1 E32 

50 

1 632 

+ 

DEFB 050H 
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ADDR 

OBJECT 

STMT 

LABEL 

OP CD OPERAND COMMENT 

1E3 


00 

1632 

+ 

DEFB OOOH 

1 EC 

4 


1 633 


DEF02 40, 00, 

1E3 

4 

40 

1 633 

+ 

DEFB 040H 

1 E3 

5 

00 

1633 

+ 

DEFB OOOH 

1E3 

6 


1 634 

ARMS: 

DEF04 OA, 5, 2, 6 

1E3 

6 

OA 

1634 

+ 

DEFB OOAH 

1E3 

7 

05 

1 634 

+ 

DEFB OSH 

1E3 

y 

02 

1 634 

+ 

DEFB 02H 

1E3 

9 

06 

1634 

+ 

DEFB 06H 

1E3 

A 


1 635 


DEF02 00, 40, 

1E3 

A 

00 

1635 

+ 

DEFB OOOH 

1E3 

B 

40 

1635 

+ 

DEFB 04 OH 

1E3 

c 


1 636 


DEF02 01,00, 

1E3 

c 

01 

1636 

+ 

DEFB 00 1H 

1E3 

D 

00 

1 636 

+ 

DEFB OOOH 

1E3 

E 


1 637 


DEF02 05, 00, 

1E3 

E 

05 

1 637 

+ 

DEFB 005H 

1E3 

F 

00 

1637 

+ 

DEFB OOOH 

1E40 


1 638 


DEF02 14,00, 

1E40 

14 

1 638 

+ 

DEFB 014H 

1E41 

00 

1 638 

+ 

DEFB OOOH 

1E4 

9 


1 639 


DEF02 54, 00, 

1E4 


54 

1 639 


DEFB 054H 

1E4 


00 

1 639 

+ 

DEFB OOOH 

1E44 


1 640 


DEF02 50, 00, 

1E44 

50 

1640 

+ 

DEFB 050H 

1E4 

5 

00 

1 640 

+ 

DEFB OOOH 

1E46 


1641 

ARM6 : 

DEF04 OA, 5,1,5 

1E46 

OA 

1 64 1 

+ 

DEFB OOAH 

1E47 

05 

1641 

+ 

DEFB OSH 

1E4 

o 

01 

1641 

+ 

DEFB 01H 

1E49 

05 

1641 

+ 

DEFB OSH 

1E4A 

01 

1642 


DEFB 01H 

1E4B 

44 

1 643 


DEFB 44H 

1E4C 

10 

1644 


DEFB 10H 

1 E4D 

40 

1645 


DEFB 40H 

1E4E 

40 

1646 


DEFB 40H 


1647 i **** NOTE **** 

1648 ; THE FOLLOWING PATTERNS ARE CONSTRAINED TO EXIST ON THE 

1649 ; PAGE. THE FOLLOWING 'ORG" WILL DO IT FOR EXPERIMENTAL 

1 650 ; PATTERNS ARE : LEGO, LEG 1 , LEG2, K I L 1 , K I L2 

1651 ; ORG (*+255). AND. OFFOOH ; 


1E4F 

64 

1652 

LEGO: 

DEFB LEG1. AND. OFFH 

1E50 

04 

1653 


DEFB 4 

1E51 


1654 


DEF04 0, OF, 3, 5 

1E51 

00 

1654 

+ 

DEFB OOH 

1E52 

OF 

1654 

+ 

DEFB OOFH 

1 E53 

03 

1 654 

+ 

DEFB 03H 

1 E54 

05 

1654 

+ 

DEFB OSH 

1E55 


1 655 


DEF03 01,55,00, 

1E55 

01 

1655 

+ 

DEFB 00 1H 

1 E56 

55 

1655 

+ 

DEFB 055H 

1 E57 

00 

1 655 

+ 

DEFB OOOH 

1 ESS 


1 656 


DEF03 05, 45, 40, 

1 E58 

05 

1656 

+ 

DEFB 005H 

1E59 

45 

1 656 

+ 

DEFB 045H 

1 ESA 

40 

1656 

+ 

DEFB 040H 
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OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

1 E5B 


1 657 


DEF03 15, 01 « 40, 

1E5B 

15 

1657 

+ 

DEFB 015H 

1E5C 

01 

1657 

+ 

DEFB 00 1H 

1E5D 

40 

1657 

+ 

DEFB 04 OH 

1 E5E 


1 658 


DEF03 50,01,40, 

1E5E 

50 

1 658 

+ 

DEFB 050H 

1E5F 

01 

1 658 

+ 

DEFB 00 1H 

1 E60 

40 

1 658 

+ 

DEFB 04 OH 

1E61 


1 659 


DEF03 15,00,54, 

1E61 

15 

1659 

+ 

DEFB 015H 

1 E62 

00 

1 659 

+ 

DEFB 00 OH 

1 E63 

54 

1 659 

+ 

DEFB 054H 

1 E64 

74 

1 660 

LEG1 : 

DEFB LEG2. AND. OFFH 

1 E65 

04 

1 66 1 


DEFB 4 

IE 66 


1 662 


DEF04 2, OF, 2, 5 

1 E66 

02 

1662 

+ 

DEFB 02H 

1 E67 

OF 

1 662 

+ 

DEFB OOFH 

IE 68 

02 

1 662 

+ 

DEFB 02 H 

1E69 

05 

1 662 

+ 

DEFB OSH 

1 E6A 


1 663 


DEF02 15,50, 

1 E6A 

15 

1 663 

+ 

DEFB 015H 

1 E6B 

50 

1663 

+ 

DEFB 050H 

1 E6C 


1 664 


DEF02 54, 50, 

1 E6C 

54 

1 664 

+ 

DEFB 054H 

IE 60 

50 

1 664 

+ 

DEFB 05 OH 

1 E6E 


1 665 


DEF02 50, 50, 

1E6E 

50 

1665 

+ 

DEFB 050H 

1 E6F 

50 

1 665 

+ 

DEFB 05 OH 

1E70 


1 666 


DEF02 50, 50, 

1E70 

50 

1666 

+ 

DEFB 05 OH 

1E71 

50 

1 666 

+ 

DEFB 050 H 

1E72 


1 667 


DEF02 55, 15, 

1E72 

55 

1 667 

+ 

DEFB 055 H 

1E73 

15 

1 667 

+ 

DEFB 015H 

1 E74 

4F 

1 668 

LEG2: 

DEFB LEGO. AND. OFFH 

1E75 

04 

1 669 


DEFB 4 

1 E76 


1670 


DEF04 3, OF, 2, 5 

1 E76 

03 

1 670 

+ 

DEFB 03H 

1E77 

OF 

1670 

+ 

DEFB OOFH 

1E78 

02 

1670 

+ 

DEFB 02H 

1E79 

05 

1 670 

+ 

DEFB OSH 

1 E7A 


1671 


DEF02 55, 00, 

1 E7A 

55 

1 67 1 

+ 

DEFB 055H 

1E7B 

00 

1671 

+ 

DEFB 00 OH 

1E7C 


1672 


DEF02 15,00, 

1 E7C 

15 

1 672 

+ 

DEFB 015H 

1E7D 

00 

1672 

+ 

DEFB OOOH 

1 E7E 


1673 


DEF02 15, 00, 

1 E7E 

15 

1 673 

+ 

DEFB 015H 

1 E7F 

00 

1673 

+ 

DEFB OOOH 

IE 80 


1674 


DEF02 14,00, 

IE 80 

14 

1674 

+ 

DEFB 014H 

1E81 

00 

1674 

+ 

DEFB OOOH 

1E82 


1675 


DEF02 05, 40, 

1 E82 

05 

1675 

+ 

DEFB 005H 

1 ESS 

40 

1675 

+ 

DEFB 040H 

1E84 

06 

1676 

KIL1 : 

DEFB KIL2. AND. OFFH 


PAGE 27 
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ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND COMMENT 

1E85 

14 

1677 


DEFB 20 

IE 86 


1678 


DEF04 0, 1,4, 13 

IE 86 

00 

1 678 

+ 

DEFB OOH 

1 E87 

01 

1 678 

+ 

DEFB 01 H 

1E88 

04 

1678 

+ 

DEFB 04 H 

IE 89 

13 

1 678 

+ 

DEFB 013H 

1 ESA 


1679 


DEF04 01, 10, 00, 00, 

1 ESA 

01 

1679 

+ 

DEFB 00 1H 

1 E8B 

10 

1679 

+ 

DEFB 01 OH 

1 ESC 

00 

1 679 

+ 

DEFB OOOH 

1 E8D 

00 

1679 

+ 

DEFB OOOH 

1 E8E 


1 680 


DEF04 45, 54, 40, 00, 

1 E8E 

45 

1 680 

+ 

DEFB 045H 

1 E8F 

54 

1 680 

+ 

DEFB 054H 

1 E90 

40 

1 680 

+ 

DEFB 040H 

1E91 

00 

1680 

+ 

DEFB OOOH 

1E92 


1681 


DEF04 55, 55, 40, 00, 

1E92 

55 

1681 

+ 

DEFB 055H 

IE 93 

55 

1681 

+ 

DEFB 055 H 

1 E94 

40 

1681 

+ 

DEFB 040H 

1 E95 

00 

1681 

+ 

DEFB OOOH 

IE 96 


1 682 


DEF04 OA, A8, 00, 00, 

1E96 

OA 

1682 

+ 

DEFB 00 AH 

1 E97 

AS 

1 682 

+ 

DEFB 0A8H 

1 E98 

00 

1 682 

+ 

DEFB OOOH 

1 E99 

00 

1 682 

+ 

DEFB OOOH 

1 E9A 


1683 


DEF04 OA, A2, 00, 01, 

1 E9A 

OA 

1 683 

+ 

DEFB OOAH 

1E9B 

A2 

1 683 

+ 

DEFB 0A2H 

1E9C 

00 

1683 

+ 

DEFB OOOH 

1E9D 

01 

1683 

+ 

DEFB 00 1H 

1 E9E 


1 684 


DEF04 OA, AA, 80, 14, 

1E9E 

OA 

1684 

+ 

DEFB OOAH 

1 E9F 

AA 

1684 

+ 

DEFB OAAH 

1EA0 

80 

1 684 

+ 

DEFB 080H 

1EA1 

14 

1 684 

+ 

DEFB 014H 

1EA2 


1685 


DEF04 02, AA, 00, 50, 

1 EA2 

02 

1685 

+ 

DEFB 002H 

1EA3 

AA 

1 685 

+ 

DEFB OAAH 

1EA4 

00 

1 685 

+ 

DEFB OOOH 

1EA5 

50 

1685 

+ 

DEFB 05 OH 

1 EA6 


1 686 


DEF04 00, A8, 05, 40, 

1 EA6 

00 

1 686 

+ 

DEFB OOOH 

1 EA7 

AS 

1686 

+ 

DEFB 0A8H 

1 EA8 

05 

1 686 

+ 

DEFB 005H 

1EA9 

40 

1 686 

+ 

DEFB 040H 

1EAA 


1 687 


DEF04 05, 55, 54, 00, 

1EAA 

05 

1 687 

+ 

DEFB 005H 

1EAB 

55 

1 687 

+ 

DEFB 055H 

1 EAC 

54 

1687 

+ 

DEFB 054H 

1EAD 

00 

1687 

+ 

DEFB OOOH 

1EAE 


1688 


DEF04 15,55,50,00, 

1EAE 

15 

1 688 

+ 

DEFB 015H 

1 EAF 

55 

1688 

+ 

DEFB 055H 

1EB0 

50 

1 688 

+ 

DEFB 050H 

1EB1 

00 

1 688 

+ 

DEFB OOOH 

1 EB2 


1 689 


DEF04 54, 55, 50, 00, 
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*MUDcOMP Z— 80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

1 EB2 

54 

1689 

+ 

1 EB3 

crer 

•_i ._l 

1689 

+ 

1 EB4 

50 

1 689 

+ 

1EB5 

00 

1 689 

+ 

1EB6 


1 690 


1EB6 

50 

1 690 

+ 

1 EB7 

05 

1 690 

+ 

1 EB8 

54 

1 690 

+ 

1EB9 

00 

1 690 

+ 

1 EBA 


1691 


1 EBA 

50 

1691 

+ 

1 EBB 

01 

1 69 1 

+ 

1 EBC 

55 

1691 

+ 

1 EBD 

00 

1691 

+ 

IE BE 


1 692 


1EBE 

10 

1 692 

+ 

1EEF 

01 

1 692 

+ 

1 ECO 

55 

1 692 

+ 

1 EC 1 

40 

1 692 

+ 

1EC2 


1 693 


1 EC2 

10 

1 693 

+ 

1 ECS 

00 

1 693 

+ 

1EC4 

05 

1693 

+ 

1 EC5 

50 

1693 

+ 

1 EC 6 


1 694 


1EC6 

00 

1 694 

+ 

1EC7 

00 

1694 

+ 

1 ECS 

01 

1694 

+ 

1 EC'? 

50 

1 694 

+ 

1 ECA 


1 695 


1ECA 

00 

1 695 

+ 

1ECB 

00 

1 695 

+ 

1 ECC 

00 

1 695 

+ 

1 ECD 

40 

1 695 

+ 

1 ECE 


1 696 


1 ECE 

00 

1 696 

+ 

1ECF 

00 

1 696 

+ 

1ED0 

01 

1696 

+ 

1ED1 

40 

1696 

+ 

1ED2 


1 697 


1 ED2 

00 

1697 

+ 

1 EDS 

00 

1 697 

+ 

1ED4 

00 

1 697 

+ 

1 EDS 

54 

1697 

+ 

1ED6 

D6 

1698 

KIL2: 

1 ED7 

SC 

1 699 


1 EDS 


1 700 


1 EDS 

00 

1 700 

+ 

1ED9 

OD 

1 700 

+ 

1 EDA 

04 

1 700 

+ 

1EDB 

07 

1700 

+ 

1 EDC 


1701 


IE DC 

01 

1701 

+ 

1EDD 

10 

1701 

+ 

1EDE 

00 

1701 

+ 

1EDF 

00 

1 70 1 

+ 

1 EEO 


1 702 



OF'CD OPERAND COMMENT 

DEFB 054H 
DEFB 055H 
DEFB 050H 
DEFB OOOH 
DEF04 50, 05, 54, 00, 

DEFB 050H 
DEFB 00 5 H 
DEFB 05 4 H 
DEFB OOOH 
DEF04 50,01,55,00, 

DEFB 05 OH 
DEFB 00 1H 
DEFB 055H 
DEFB OOOH 
DEF04 10,01,55,40, 

DEFB 01 OH 
DEFB 00 1H 
DEFB 055H 
DEFB 040H 
DEF04 10,00,05,50, 

DEFB 01 OH 
DEFB OOOH 
DEFB 005H 
DEFB 050H 
DEF04 00,00,01,50, 

DEFB OOOH 
DEFB OOOH 
DEFB 00 1H 
DEFB 050H 
DEF04 00, 00, 00, 40, 

DEFB OOOH 
DEFB OOOH 
DEFB OOOH 
DEFB 040H 
DEF04 00,00,01,40, 

DEFB OOOH 
DEFB OOOH 
DEFB 00 1H 
DEFB 040H 
DEF04 00, 00, 00, 54, 

DEFB OOOH 
DEFB OOOH 
DEFB OOOH 
DEFB 054H 

DEFB KIL2. AND. OFFH 

DEFB 60 

DEF04 0, D, 4, 7 

DEFB 00 H 

DEFB ODH 

DEFB 04H 

DEFB 07H 

DEF04 01, 10, 00, 00, 

DEFB 00 1H 
DEFB 01 OH 
DEFB OOOH 
DEFB OOOH 
DEF04 45, 54, 40, 00, 
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*MUDC0MP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


A DDR OBJECT STMT LABEL 


1 EEO 45 

1702 + 

1 EE 1 54 

1702 + 

1 EE2 40 

1702 + 

1EE3 00 

1702 + 

1EE4 

1703 

1EE4 55 

1703 + 

1EE5 55 

1703 + 

1 EE6 40 

1703 + 

1EE7 00 

1703 + 

1 EES 

1 704 

1 EES OA 

1704 + 

1EE9 AS 

1704 + 

1 EEA 00 

1704 + 

1 EEB 00 

1704 + 

1 EEC 

1 705 

1 EEC OA 

1705 + 

1EED 88 

1705 + 

IEEE 15 

1705 + 

1EEF 01 

1705 + 

1 EFO 

1706 

1EF0 16 

1706 + 

1EF1 A5 

1706 + 

1 EF2 55 

1706 + 

1 EF3 41 

1706 + 

1EF4 

1 707 

1EF4 15 

1707 + 

1EF5 55 

1707 + 

1EF6 55 

1707 + 

1EF7 55 

1707 + 

1EF8 

1 708 CACTUS 

1EF8 01 

1708 + 

1 EF9 OC 

1708 + 

1EFA 20 

1709 

1EFB 30 

1710 

1EFC 38 

1711 

1 EFD 30 

1712 

1EFE B2 

1713 

1EFF F2 

1714 

IF 00 F6 

1715 

1 F 0 1 3C 

1716 

1 F02 3C 

1717 

1F03 30 

1718 

1F04 30 

1719 

1 F05 30 

1720 

1F06 474F5420 

1721 GOTME: 

1 F OC 00 

1722 NIJLPAT: 

1F0D 00 

1723 

1 FOE 01 

1724 

1F0F 01 

1725 

1 F 1 0 

1726 GFBGDY : 

1 F 1 0 00 

1726 + 

IF 11 00 

1726 + 

IF 12 03 

1726 + 

IF 13 OF 

1726 + 

1 F 1 4 

1727 

1 FI 4 00 

1727 + 

1 F 1 5 44 

1727 + 


OF'CD OPERAND COMMENT 

DEFB 045H 
DEFB 054H 
DEFB 040H 
DEFB OOOH 
DEF04 55, 55, 40, 00, 

DEFB 055H 
DEFB 055H 
DEFB 040H 
DEFB OOOH 
DEF04 OA, AS, 00, 00, 

DEFB 00 AH 
DEFB 0A8H 
DEFB OOOH 
DEFB OOOH 
DEF04 OA, 88, 15, 01, 

DEFB 00 AH 
DEFB 088H 
DEFB 015H 
DEFB 00 1H 
DEF04 16, A5, 55, 41, 

DEFB 016H 
DEFB 0A5H 
DEFB 055H 
DEFB 04 1H 
DEF04 15,55,55,55, 

DEFB 015H 
DEFB 055H 
DEFB 055H 
DEFB 055H 
DEF2 1, 12 
DEFB 1 
DEFB 12 

DEFB 00 1 OOOOOB 
DEFB 00 1 1 OOOOB 
DEFB 00 111 OOOB 
DEFB 0011 OOOOB 
DEFB 101 1001 OB 
DEFB 1111 00 1 OB 
DEFB 111101 10B 
DEFB 00 1111 OOB 
DEFB 00 1111 OOB 
DEFB 0011 OOOOB 
DEFB 0011 OOOOB 
DEFB 0011 OOOOB 
DEFM 'GOT ME" 

DEFB 0 
DEFB 0 
DEFB 1 
DEFB 1 

DEF04 0, 0, 3, F 
DEFB 00 H 
DEFB OOH 
DEFB OSH 
DEFB OFH 
DEF03 00, 44, 00, 

DEFB OOOH 
DEFB 044H 
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*MGDC 

::OMP Z— 80 

CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 

ADDR 

OBJECT 

STMT 

LABEL 

OP CD OPERAND COMMENT 

IF 16 

00 

1727 

+ 

DEFB 00 OH 

1F17 


1728 


DEF03 11,55,10, 

1F17 

1 1 

1 728 

+ 

DEFB 01 1H 

1F1S 

55 

1728 

+ 

DEFB 055H 

1 F 1 9 

10 

1728 

+ 

DEFB 01 OH 

1F1A 


1729 


DEF03 15,55,50, 

1F1 A 

15 

1 729 

+ 

DEFB 015H 

1F1B 

55 

1729 

+ 

DEFB 055H 

1F1C 

50 

1729 

+ 

DEFB 050H 

IF ID 


1 730 


DEF03 02, AA, 00, 

IF ID 

02 

1 730 

+ 

DEFB 002H 

1F1E 

AA 

1 730 

+ 

DEFB OAAH 

1F1F 

00 

1 730 

+ 

DEFB OOOH 

1 F20 


1731 


DEF03 02, A2, 00, 

1 F20 

02 

1731 

+ 

DEFB 002H 

1F21 

A 2 

1731 

+ 

DEFB 0A2H 

1F22 

00 

1731 

+ 

DEFB OOOH 

1F23 


1 732 


DEF03 02, AA, 80, 

1 F23 

02 

1732 

+ 

DEFB 002H 

1F24 

AA 

1732 

+ 

DEFB OAAH 

1F25 

80 

1 732 

+ 

DEFB 080H 

1 F26 


1733 


DEF03 00, AA, 00, 

1F26 

00 

1 733 

+ 

DEFB OOOH 

1F27 

AA 

1733 

+ 

DEFB OAAH 

IF 28 

00 

1733 

+ 

DEFB OOOH 

1F29 


1734 


DEF03 00, AS, 00, 

1 F29 

00 

1734 

+ 

DEFB OOOH 

1F2A 

AS 

1734 

+ 

DEFB 0A8H 

1F2B 

00 

1734 

+ 

DEFB OOOH 

1F2C 


1735 


DEF03 15,55,00, 

1F2C 

15 

1735 

+ 

DEFB 015H 

1F2D 

55 

1735 

+ 

DEFB 055H 

1 F2E 

00 

1 735 

+ 

DEFB OOOH 

1F2F 


1 736 


DEF03 55, 55, 50, 

1F2F 

55 

1736 

+ 

DEFB 055H 

1F30 

55 

1736 

+ 

DEFB 055H 

1F31 

50 

1 736 

+ 

DEFB 050H 

1F32 


1737 


DEF03 51,55,50, 

1F32 

51 

1737 

+ 

DEFB 05 1H 

1 F33 

55 

1 737 

+ 

DEFB 055H 

1F34 

50 

1737 

+ 

DEFB 050H 

1F35 


1738 


DEF03 41,55,00, 

IF 35 

41 

1738 

+ 

DEFB 04 1H 

IF 36 

55 

1738 

+ 

DEFB 055H 

1F37 

00 

1 738 

+ 

DEFB OOOH 

1F38 


1739 


DEF03 41,55,00, 

1F38 

41 

1 739 

+ 

DEFB 04 1H 

1F39 

55 

1739 

+ 

DEFB 055H 

1F3A 

00 

1739 

+ 

DEFB OOOH 

1F3B 


1740 


DEF03 45, 55, 00, 

1F3B 

45 

1740 

+ 

DEFB 045H 

1F3C 

55 

1740 

+ 

DEFB 055H 

1 F3D 

00 

1740 

+ 

DEFB OOOH 

1F3E 

01 

1741 


DEFB 01H 

1F3F 

55 

1742 


DEFB 55H 

1F40 


1743 

WAGPAT : 

DEF04 0, 0, 4, 16 

1 F40 

00 

1743 

+ 

DEFB OOH 



*MODCOMP Z-80 
ADDR OBJECT 

1F41 00 
1F42 04 
1F43 16 
1 F44 
1F44 00 
1F45 05 
1F46 50 
1F47 00 
1F48 
1F48 00 
1F49 55 
1 F4A 55 
1 F4B 00 
1 F4C 
1F4C 01 
1F4D 55 
1F4E 55 
1 F4F 40 
1F50 
1 F50 05 
1F51 55 
1 F52 55 
1F53 50 
1F54 
1 F54 15 
1F55 54 
1 F56 15 
1F57 54 
1F58 
1 F58 15 
1 F59 50 
1F5A 05 
1F5E 54 
1F5C 
1F5C 15 
1F5D 40 
1F5E 01 
1F5F 54 
1F60 
1 F60 15 
1F61 40 
1 F62 01 
1F63 54 
1F64 
1F64 15 
1F65 50 
1 F66 05 
1F67 54 
1F68 
1F68 05 
1F69 54 
1F6A 15 
1F6B 50 
1F6C 
1F6C 01 
1F6D 55 
1 F6E 55 


CROSS 

5 ASSEMBLER* HOME VIDEO GAME SYSTEM 

STMT 

LABEL 

QF'CD OPERAND COMMENT 

1743 

+ 

DEFB OOH 

1743 

+ 

DEFB 04H 

1743 

+ 

DEFB 016H 

1744 


DEF04 00, 05, 50, 00, 

1744 

+ 

DEFB OOOH 

1744 

+ 

DEFB 005H 

1744 

+ 

DEFB 050H 

1744 

+ 

DEFB OOOH 

1745 


DEF04 00, 55, 55, 00, 

1745 

+ 

DEFB OOOH 

1745 

+ 

DEFB 055H 

1745 

+ 

DEFB 055H 

1745 

+ 

DEFB OOOH 

1746 


DEF04 01,55,55,40, 

1746 

+ 

DEFB 00 1H 

1746 

+ 

DEFB 055H 

1746 

+ 

DEFB 055H 

1746 

+ 

DEFB 040H 

1747 


DEF04 05, 55, 55, 50, 

1747 

+ 

DEFB 005H 

1747 

+ 

DEFB 055H 

1747 

+ 

DEFB 055H 

1747 

+ 

DEFB 050H 

1748 


DEF04 15, 54, 15, 54, 

1748 

+ 

DEFB 015H 

1748 

+ 

DEFB 054H 

1748 

+ 

DEFB 015H 

1748 

+ 

DEFB 054H 

1749 


DEF04 15,50,05,54, 

1 749 

+ 

DEFB 015H 

1749 

+ 

DEFB 050H 

1749 

+ 

DEFB 005H 

1749 

+ 

DEFB 054H 

1750 


DEF04 15,40,01,54, 

1750 

+ 

DEFB 015H 

1750 

+ 

DEFB 040H 

1750 

+ 

DEFB 00 1H 

1 750 

+ 

DEFB 054H 

1751 


DEF04 15,40,01,54, 

1751 

+ 

DEFB 015H 

1751 

+ 

DEFB 040H 

1751 

+ 

DEFB 00 1H 

1751 

+ 

DEFB 054H 

1752 


DEF04 15,50,05,54, 

1752 

+ 

DEFB 015H 

1752 

+ 

DEFB 050H 

1752 

+ 

DEFB 005H 

1752 

+ 

DEFB 054H 

1753 


DEF04 05, 54, 15, 50, 

1 753 

+ 

DEFB 005H 

1753 

+ 

DEFB 054H 

1753 

+ 

DEFB 015H 

1753 

+ 

DEFB 050H 

1754 


DEF04 01,55,55,40, 

1754 

+ 

DEFB 00 1H 

1754 

+ 

DEFB 055H 

1754 

+ 

DEFB 055H 



PAGE 


# MUD LUMP Z-80 CROSS ASSEMBLER* HOME VIDEO GAME 
ADDR OBJECT STMT LABEL OPCD OPERAND 


1 F6F 

40 

1754 

+ 

1 F70 


1755 


1 F70 

00 

1755 

+ 

1F71 

55 

1755 

+ 

1F72 

55 

1755 

+ 

1F73 

00 

1 755 

+ 

1F74 


1756 


1 F74 

00 

1 756 

+ 

1 F75 

15 

1 756 

+ 

1F76 

54 

1756 

+ 

1 F77 

00 

1 756 

+ 

1 F78 


1757 


1 F78 

02 

1757 

+ 

1F79 

AA 

1757 

+ 

1 F7A 

AA 

1757 

+ 

1F7B 

80 

1757 

+ 

1F7C 


1758 


1 F7C 

00 

1 758 

+ 

1F7D 

AA 

1 758 

+ 

1F7E 

AA 

1 758 

+ 

1F7F 

00 

1 758 

+ 

1 F80 


1759 


IF 80 

12 

1 759 


1F81 

AA 

1 759 

+ 

1 F82 

AA 

1759 

+ 

IF 83 

84 

1759 

4- 

1 F84 


1760 


IF 84 

10 

1760 

4- 

1F85 

AS 

1760 

4 - 

1F86 

2 A 

1 760 

4 - 

1 F87 

04 

1760 

+ 

1 F88 


1761 


1 F88 

10 

1761 

+ 

1 F89 

20 

1761 

+ 

1F8A 

08 

1761 

4- 

1FSB 

04 

1761 

4 - 

1F8C 


1762 


1F8C 

52 

1762 

4- 

1F8D 

AA 

1762 

4- 

1F8E 

AA 

1 762 

4 - 

1F8F 

y5 

1762 

4- 

1 F90 


1 763 


IF 90 

10 

1 763 

4- 

1F91 

20 

1763 

4- 

1F92 

ow 

1 763 

4- 

1 F93 

04 

1763 

4- 

1F94 


1 764 


1F94 

10 

1764 

4- 

1F95 

00 

1 764 

4- 

IF 96 

oo 

1764 

4 - 

1 F97 

04 

1 764 

4- 

IF 98 


1765 


IF 98 

10 

1 765 

4 - 

1F99 

00 

1765 

4- 

1F9A 

00 

1 765 

4- 

1F9B 

04 

1765 

1 766 

4- 


DEFB 04 OH 

DEF04 00, 55, 55, 00, 

DEFB OOOH 

DEFB 055H 

DEFB 055H 

DEFB OOOH 

DEF04 00, 15, 54, 00, 

DEFB OOOH 

DEFB 015H 

DEFB 054H 

DEFB OOOH 

DEF04 02, AA, AA, 30, 

DEFB 002H 

DEFB OAAH 

DEFB OAAH 

DEFB 08 OH 

DEF04 00, AA, AA, 00, 

DEFB OOOH 

DEFB OAAH 

DEFB OAAH 

DEFB OOOH 

DEF04 12, AA, AA, 84, 

DEFB 012H 

DEFB OAAH 

DEFB OAAH 

DEFB 084H 

DEF04 10, A8, 2A, 04, 

DEFB 01 OH 

DEFB 0A8H 

DEFB 02AH 

DEFB 00 4 H 

DEF04 10,20,08,04, 

DEFB 01 OH 

DEFB 02 OH 

DEFB 008H 

DEFB 00 4 H 

DEF04 52, AA, AA, 85, 

DEFB 052 H 

DEFB OAAH 

DEFB OAAH 

DEFB 085H 

DEF04 10,20,08,04, 

DEFB 01 OH 

DEFB 02 OH 

DEFB 008 H 

DEFB 004H 

DEF04 10, 00, 00, 04, 

DEFB 01 OH 

DEFB OOOH 

DEFB OOOH 

DEFB 00 4 H 

DEF04 10, 00, 00, 04, 

DEFB 01 OH 

DEFB OOOH 

DEFB OOOH 

DEFB 004H 


SYSTEM 

COMMENT 
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*MODCOMP Z— 80 

CROSS 

> ASSEMBLER* HOME VIDEO 

GAME SYSTEM 

A DDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND 

COMMENT 

1F9C 

00 

1767 

FUDG4 : 

DEFB 0 




1 768 

i 



1F9D 


1769 

MSET 

MASTER 0A4 


1 F9D 

o (_) 

1769 

+ 

DEFB 80H 


1F9E 

1 1 

1769 

+ 

DEFB 0A4 


1F9F 


1770 


VOLUME 09H. OH 


1F9F 

BO 

1770 

+ 

DEFB OBOH 


1 FAO 

09 

1770 

+ 

DEFB 09H 


1FA1 

00 

1770 

+ 

DEFB OH 


1FA2 

C9 

1771 


RET 




1772 

; HOME ON THE RANGE 


1FA3 

CD9D1F 

1773 

HOME 

CALL MSET 


1FA6 


1774 


N0TE1 36, G1 


1FA6 

24 

1774 

+ 

DEFB 36&7FH 


1FA7 

7E 

1774 

+ 

DEFB G1 


1 FAS 


1775 


NOTE 1 12, FI 


1FA8 

OC 

1775 

+ 

DEFB 12&7FH 


1 FA9 

8D 

1775 

+ 

DEFB FI 


1FAA 


1776 


N0TE1 18, El 


1FAA 

12 

1776 

+ 

DEFB 18&7FH 


1FAB 

96 

1776 

+ 

DEFB El 


1FAC 


1777 


N0TE1 6, D1 


1FAC 

06 

1777 

+ 

DEFB 6&7FH 


IFAD 

AS 

1777 

+ 

DEFB D1 


1FAE 


1778 


N0TE1 36, El 


1FAE 

24 

1778 

+ 

DEFB 36?<7FH 


1FAF 

96 

1778 

+ 

DEFB El 


1FB0 


1779 


QUIET 


IF BO 

FO 

1779 

+ 

DEFB OFOH 




1780 

; TAP 

C; 


1FB1 


1781 

TAPS 



1FB1 

CD9D1F 

1782 


CALL MSET 


1FB4 


1783 


NOTE 1 18, Cl 


1FB4 

12 

1783 

+ 

DEFB 18&7FH 


1 FB5 

BD 

1783 

+ 

DEFB Cl 


1FB6 


1784 


N0TE1 6, Cl 


1FB6 

06 

1784 

+ 

DEFB 6&7FH 


1 FB7 

BD 

1784 

+ 

DEFB Cl 


1FB8 


1785 


N0TE1 36, FI 


1FB8 

24 

1785 

+ 

DEFB 36&7FH 


1FB9 

8D 

1785 

+ 

DEFB FI 


1FBA 


1 786 


NOTE 1 18, Cl 


1FBA 

12 

1786 

+ 

DEFB 18&7FH 


1FBB 

BD 

1 786 

+ 

DEFB Cl 


1FBC 


1787 


N0TE1 6, FI 


1FBC 

06 

1787 

+ 

DEFB 6&7FH 


1 FBD 

8D 

1787 

+ 

DEFB FI 


1FBE 


1788 


N0TE1 36, A 1 


1FBE 

24 

1788 

+ 

DEFB 36&7FH 


1FBF 

70 

1788 

+ 

DEFB A1 


IF CO 


1789 


QUIET 


IF CO 

FO 

1789 

+ 

DEFB OFOH 




1790 

; FUNERAL 


1FC1 


1791 

FUNERL 



1FC1 

CD9D1F 

1792 


CALL MSET 


1 FC4 


1793 


NOTE 1 24, AO 


1FC4 

18 

1793 

+ 

DEFB 24S<7FH 
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*MODCOMP Z -80 
ADDR OBJECT 

1 FC5 El 
1FC6 
1FC6 12 
1FC7 El 
1 FCS 
1FC8 06 
1FC9 El 
1FCA 
1FCA 18 
1FCB El 
1FCC 
1FCC 12 
1FCD BD 
1 FCE 
1FCE 06 
1 FCF C8 
1 FDO 
IF DO 12 
1FD1 C8 
1 FD2 
1 FD2 06 
1FD3 El 
1FD4 
1FD4 12 
1FD5 El 
1FD6 
1 FD6 06 
1FD7 EE 
1FD8 
1FD8 12 
1FD9 El 
1 FDA 
1FDA FO 
1FDB 


1FDB 88 
1 FDC 
1 FDC EF 
1FDD FF 
1FDE 3F 
1FDF 00 
1FE0 FF 
1FE1 FD 
1 FE2 F5 
1FE3 FO 

1FE4 
1FE4 EO 
1 FE5 
1FE5 BO 
1FE6 FF 
1FE7 3F 
1FE8 
1FE8 El 
1FE9 05 


CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 
STMT LABEL OPCD OPERAND COMMENT 


1 793 

+ 

DEFB AO 

1794 


NOTE 1 18, AO 

1794 

+ 

DEFB 1 8&7FH 

1 794 

+ 

DEFB AO 

1795 


N0TE1 6, AO 

1795 

+ 

DEFB 6&7FH 

1795 

+ 

DEFB AO 

1796 


N0TE1 24, AO 

1 796 

+ 

DEFB 24S<7FH 

1 796 

+ 

DEFB AO 

1797 


NOTE 1 18, Cl 

1797 

+ 

DEFB 18&7FH 

1797 

+ 

DEFB Cl 

1798 


NOTE 1 6, BO 

1 798 

+ 

DEFB 6&7FH 

1 798 

+ 

DEFB BO 

1799 


N0TE1 18, BO 

1799 

+ 

DEFB 1 8&7FH 

1799 

+ 

DEFB BO 

1 800 


N0TE1 6, AO 

1800 

+ 

DEFB 6&7FH 

1800 

+ 

DEFB AO 

1801 


N0TE1 18, AO 

1801 

+ 

DEFB 18&7FH 

1801 

+ 

DEFB AO 

1 802 


N0TE1 6, GSO 

1802 

+ 

DEFB 6&7FH 

1802 

+ 

DEFB GSO 

1803 


N0TE1 18, AO 

1803 

+ 

DEFB 18&7FH 

1803 

+ 

DEFB AO 

1804 


QUIET 

1804 

+ 

DEFB OFOH 

1805 

GUNSHOT 

OUTPUT 18H, OFOH, 0F5H, OFDH, OFFH, 0, 3FH, OFFH, OEFH 

1805 

+ 

IF . NOT. ( 18H=18H) 

1805 

+ 

END IF 

1805 

+ 

IF 18H=18H 

1 805 

+ 

DEFB 88H 

1805 

+ 

DEF8 OEFH, OFFH, 3FH, 0, OFFH, OFDH, 0F5H, OFOH 

1805 

+ 

DEFB OEFH 

1805 

+ 

DEFB OFFH 

1 805 

+ 

DEFB 3FH 

1 805 

+ 

DEFB 0 

1805 

+ 

DEFB OFFH 

1805 

+ 

DEFB OFDH 

1 805 

+ 

DEFB 0F5H 

1805 

+ 

DEFB OFOH 

1805 

+ 

END IF 

1806 


LEGSTA 

1806 

+ 

DEFB OEOH 

1 807 


VOLUME OFFH, 03FH 

1807 

+ 

DEFB OBOH 

1807 

+ 

DEFB OFFH 

1 807 

+ 

DEFB 03FH 

1 808 


REST 5 

1808 

+ 

DEFB 0E1H 

1808 

+ 

DEFB 5 



PAGE 


*MODCOMP Z-30 CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


ADDR 

OBJECT 

STMT 

LABEL 

OPCD OPERAND 

COMMENT 

1FEA 


1809 


NOTE 1 5, 8FH 


1FEA 

05 

1809 

+ 

DEFB 5&7FH 


1FEB 

8F 

1809 

+ 

DEFB 8FH 


1FEC 


1810 


N0TE1 5, 4CH 


1FEC 

05 

1810 

+ 

DEFB 5&7FH 


1FED 

4C 

1810 

+ 

DEFB 4CH 


1FEE 


1811 


QUIET 


1FEE 

FO 

1811 

+ 

DEFB OFOH 


>1FEF 


1812 

LASTB 

EQU * 




1814 




1815 

> * RAM 

CELLS * 



1816 

; ***■*■*•»•****■*•«■* 



1817 


ORG 

N0RMEM+0E70H 


4E70 

1818 


DEFS 

150 i 

ALLOW BIG STACK 

>4F06 

1819 

STACK 

EQU 

* > 

START STACK HERE 

4F06 

1820 


DEFS 

12 


>4F 1 2 

1821 

MSTACK 

EQU 

* 


>4F 1 2 

1822 

STRRAM 

EQU 

* 


4F12 

1823 

WRITQ: 

DEFS 

3 i 

WRITE Q HEADER 

4F15 

1824 

VECQ: 

DEFS 

3 ; 

VECTOR Q HEADER 

>4F 1 8 

1825 

VECSTR 

EQU 

* 


4F18 

1826 

BULV1: 

DEFS 

BULVSZ ; 

BULLET VECTOR 1 

4F2A 

1827 

BULV2: 

DEFS 

BULVSZ i 

BULLET VECTOR 2 

4F3C 

1828 

BULV3 : 

DEFS 

BULVSZ ; 

BULLET VECTOR 3 

4F4E 

1829 

BULV4: 

DEFS 

BULVSZ ; 

BULLET VECTOR 4 

4F60 

1830 


DEFS 

1 ; 

LEFT COWBOY LINK 

4F61 

1831 

LCOWB: 

DEFS 

GFVSIZ-1 ; 

LEFT GLINFIGHTER 

4F77 

1832 


DEFS 

1 ; 

RIGHT COWBOY LINK 

4F78 

1833 

RCOWB: 

DEFS 

GFVSIZ-1 ; 

RIGHT GUNFIGHER 

4F3E 

1834 


DEFS 

1 ; 

WAGON LINK 

4FSF 

1835 

WAGVEC: 

DEFS 

WAGVSZ ; 

WAGON VECTOR 

>4F90 

1836 

WAGON 

EQU 

WAGVEC+VBST AT 


>4FA1 

1837 

ENDRAM 

EQU 

* 


>4FDA 

1838 

LBULS 

EQU 

CT5 


>4FDB 

1839 

RBULS 

EQU 

CT6 


4FA1 

1840 

RFIELD 

DEFS 

1 


4FA2 

1841 

LSCORE 

DEFS 

3 


4FA5 

1842 

LFIELD 

DEFS 

1 


4FA6 

1843 

RSCORE 

DEFS 

3 



1844 


LIST 

S 


>1FEF 

1845 

LEND 

EQU 

LASTB 


4FA9 

1846 


END 



TOTAL 

ASSEMBLER ERRORS = 






* Mu DCOM P Z-SO CROSS ASSEMBLER* HOME VIDEO GAME SYSTEM 


CRCr 


LABEL 

VALUE 

REFERENCE 

AO 

OOE 1 

-508 

1794 

A 1 

0070 

-520 

1 789 

A2 

0037 

-532 


A3 

00 IB 

-544 


A4 

000 D 

-556 


A5 

0006 

-562 


ACT I NT 

00 OE 

-225 


ADD TO 

1 D54 

-1355 

1 1 10 

ADDTQ1 

1 Ei 6 8 

-1372 

1482 

AL I NE 

0009 

-676 

1 053 

ALLEYS 

02 1 4 

-49 

1 1 80 

ARMO 

1 DFC 

-1479 

1569 

ARM1 

1E0A 

-1479 

1 570 

ARM2 

1 E 1 4 

-1479 

1571 

ARMS 

1E1C 

-1479 

1572 

ARM4 

1E28 

-1479 

1573 

ARMS 

IE 36 

- 1 479 

1574 

ARM6 

1 E46 

-1479 

1575 

ARMTBL 

1 DDE 

-1439 

1255 

ASO 

00D4 

—509 


AS 1 

006 A 

-521 


AS2 

0034 

-533 


ASS 

001 A 

-545 


BO 

00C8 

-510 

1799 

B1 

0064 

-522 


B2 

003 1 

-534 


B3 

00 1 8 

-546 


BCACY 

0046 

-667 

66.8 

BCD ADD 

0062 

-277 


BCDCHS 

006 A 

-281 


BCDDIV 

0068 

-280 


BCDMUL 

0066 

-279 


BCDNEG 

006C 

-282 


BCD SUB 

0064 

-278 


BEG I NT 

1B61 

- 1 1 32 


BEGRAM 

4FCE 

-594 


BELP 

1859 

-773 

785 

BERASE 

1 83 A 

-756 

757 

BITSF'L 

00 AO 

-43 


BLANK 

002 A 

-243 

1 1 48 

EiLINE 

005 C 

-677 

1031 

BMUSIC 

00 1 2 

-229 

814 

BORG 

1 AAD 

-1064 

1111 

BOTLIN 

0000 

-685 

1347 

BSY 

0002 

-656 

713 

BTREEY 

004 1 

-668 


BULLMT 

1 D8F 

-1410 

868 

BULLP 

1 AB9 

-1068 

1131 

BULRIT 

1 B57 

-1125 

1 159 

BIJLT 

000 B 

-1429 

1 1 56 

BULTAB 

1 D93 

- 1 420 

792 

BIJLV1 

4F18 

-1541 

728 

BULV2 

4F2A 

-1542 



SS REFERENCE 

1795 1796 1797 1801 1802 


1 274 1 423 1 44 1 

1055 1055 1531 


1 800 


1 1 69 


1 055 
814 

1520 

937 

1 526 
937 

1532 
1 037 

771 

1063 

1 069 

1 155 

1 355 




1 1 65 




1 121 

1 186 

1291 

1 304 
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1804 



BULV3 

4F3C: 

-1543 

734 

BULV4 

4F4E 

-1544 


BULVSZ 

0012 

-679 

744 



1827 

1828 

BVTEPL 

0028 

-42 

1053 

Cl 

OOBD 

-511 

1784 

C2 

005E 

-523 


C3 

002E 

-535 


C4 

0017 

-547 


C5 

OOOB 

-557 


C6 

0005 

-563 


C7 

0002 

-566 


CACTUS 

1EF8 

-1499 

949 

CACW 

19C8 

-953 

95S 

CBA 

0009 

-123 


CBB 

0007 

-121 

735 

CBC 

0006 

-120 


CBB 

0005 

-119 


CBE 

0004 

-118 


CBFLAG 

0008 

-122 


CBH 

OOOB 

-125 


CBIXH 

0003 

-117 


CBIXL 

0002 

-116 


CBIYH 

0001 

-115 


CBIYL 

0000 

-114 


CBL 

OOOA 

-124 


CCACX 

004C 

-671 

877 

CHDOWN 

0001 

-111 


CHLEFT 

0002 

-110 


CHRDIS 

0032 

-248 

1154 

CHRIGH 

0003 

-109 


CHTRIG 

0004 

-108 


CHUR 

0000 

-112 


CNT 

4FDD 

-61 1 


COLOL 

0004 

-168 


COLOR 

0000 

-164 


C0L1L 

0005 

-169 


COL 1 R 

0001 

-165 


C0L2L 

0006 

-170 


C0L2R 

0002 

-166 


C0L3L 

0007 

-171 


C0L3R 

0003 

-167 


COLBX 

OOOB 

-172 


COLLST 

4FE8 

-622 


COLSET 

0018 

-234 

1035 

CONCM 

0008 

-189 


COW I NT 

1D34 

-1344 

1097 

COWX 

0060 

-673 


CS1 

00B2 

-512 


CS2 

0059 

-524 


CSS 

002C 

-536 


CS4 

0015 

-548 


CSS 

OOOA 

-558 


CTO 

4FB5 

-602 


CT1 

4FD6 

-603 


CT2 

4FD7 

-604 


CT3 

4FD8 

-605 



1120 

1829 

1187 

1292 1336 1356 1826 

1055 

1055 


1785 

1787 

1798 


1118 

964 972 981 


1115 


1164 1221 1222 1223 1224 1225 


1100 



CT 4 

4FD9 

-606 





CT5 

4FDA 

-607 

1048 

1838 



CT6 

4FDB 

-608 

1839 




CT7 

4FDC 

-609 

708 

716 

758 

763 

CT I MER 

0203 

-46 





EH 

00A8 

-513 

1778 




D2 

0054 

-525 





D3 

0029 

-537 





D4 

0014 

-549 





DABS 

0072 

— 285 





DADD 

00 AE 

—283 





DCLOCK 

17E1 

-704 

1219 




DC OUT 

1 7F7 

-713 

710 




DEATH 

1 B 1 0 

-11 13 





DECCTS 

00 1 0 

-226 

706 

706 



DELQ 

1D29 

- 1 335 

1239 

1370 

1438 


DIE 

1 930 

-881 

895 




DIE1 

194C 

-892 

909 




DIE4 

1 963 

-900 

922 




DIFER 

4FFF 

-1213 





DISNUM 

0036 

-250 

712 

712 

1 062 

1063 

DISTIM 

0052 

-267 





DLEFT 

1 942 

-888 

902 




DOIT 

0044 

-260 

1182 




DOITB 

0046 

-261 





DRAW 

1 DSB 

-1408 

1153 




DRX 

0040 

-663 

1153 




DS1 

00 9 F 

-514 





DS2 

00 4 F 

-526 





DS3 

0027 

-538 





DS4 

0013 

-550 





DS5 

0009 

-559 





DS6 

0004 

-564 





DSMG 

0070 

-284 





DTAB 

1B38 

-1133 

1 182 




DLIRAT 

4FEA 

-624 





El 

0096 

-515 

1777 

1779 



E2 

004A 

-527 





E3 

0025 

-539 





E4 

00 1 2 

-551 





EIRE 

1 BBE 

-1167 





ELOP 

1917 

-866 

892 




EMUS I C 

00 1 4 

-230 





END 

OOCO 

-379 

1219 

1219 



ENDGAM 

1 B30 

- 1 1 30 

1075 




ENDRAM 

4FA1 

-1552 

1057 




ENDRND 

1 B2C 

- 1 1 28 

1210 

1211 



ENDSCR 

4FF4 

— 6>32 

1020 




ERASE 

190A 

-861 

898 

900 



FI 

008 D 

-516 

1776 

1786 

1788 


F2 

0046 

-528 





F3 

0022 

-540 





F4 

001 1 

-552 





F5 

0008 

-560 





FIELD 

1988 

-917 

1 084 

1088 



FILL 

00 1 A 

—2:35 

1 024 

1 053 

1055 

1057 

FIREO 

1 7FF 

-720 

1217 






1341 1368 


F I RE 1 

180A 

FIRST 

1 D6B 

FIRSTS 

2000 

FNTSML 

020D 

FNTSYS 

0206 

FS1 

0085 

FS2 

0042 

FS3 

0020 

FS4 

0010 

FTEASE 

0000 

FTEYTE 

0003 

FTFSX 

0001 

FTFSY 

0002 

FTF'TH 

0006 

FTF'TL 

0005 

FTYSIZ 

0004 

FUDG4 

1F9C 

FUNERL 

1FC1 

GO 

OOFD 

G1 

007E 

G2 

003E 

G3 

00 IF 

G4 

OOOF 

G5 

0007 

G6 

0003 

G7 

0001 

ijy 

0000 

GAMSTE 

4FF8 

GETNUM 

004E 

GETPAR 

004 C 

GETRDY 

1D7E 

GFBGDY 

1F10 

GFCOLS 

1 DC7 

GFLFR 

1BC5 

GFVSIZ 

0017 

GFWRIT 

1B5D 

GFWRT1 

1BA4 

GFWRT2 

1 BAG 

GFWRT3 

1BB4 

GFWRT4 

1EAE 

GFWRT5 

1BC0 

GOTME 

1 F06 

GRX 

002C 

GRY 

0001 

GSO 

OOEE 

GS1 

0077 

GS2 

003B 

GS3 

00 ID 

GS4 

OOOE 

GSBEND 

0007 

GSESCR 

000 1 

GSETIM 

0000 

GTMINS 

4FEE 

GTSECS 

4FED 

GUIMLMT 

1 D87 

GUNSHO 

1FDB 

GVEC3A 

1CDD 


-724 1218 

-1379 1238 

-40 

-48 707 1 060 

-47 
-517 
-529 
-541 
-553 
-93 
-96 
-94 
-95 
-99 
—98 
-97 
-1519 

-1528 914 

-506 

-518 1775 

-530 

-542 

-554 

-561 

-565 

-567 

-568 


-634 

-265 

1029 

1204 

-264 

1018 

1018 

-1402 

1077 


-1516 

1264 


-1420 

1035 


-1174 

1516 


-680 

1296 

1831 

-1129 

1517 


-1160 

1243 


-1161 

-1162 

-1160 

1265 

1281 

-1169 

1254 


-1511 

938 


-661 

1077 


-662 

1077 

1 153 

-507 

-519 

-531 

-543 

-555 

1803 


-62 

1 205 


-61 

-60 

-628 

-627 

1028 


- 1 404 

1394 


-1530 

816 


- 1 296 

1386 

1391 


1 144 


1833 



0P0T3 

4FE2 

-616 






oswo 

4FE4 

-618 






oswi 

4FE5 

-619 






0SW2 

4FE6 

-620 






0SW3 

4FE7 

-621 






PAWS 

0050 

-266 

942 

942 

1142 

1142 

1167 

PIZBRK 

0048 


820 





P JOY 

1899 

-812 

823 





POTO 

00 1C 

-201 






POT 1 

00 ID 

-202 






POT 2 

00 IE 

-203 






POT 3 

00 IF 

-204 






PPOT 

1 SEE 

-826 

838 





PPOTO 

1 8B9 

-823 

1212 





PPOT 1 

1 SB 1 

-819 

1213 





PRIOR 

4FF9 

-635 






PSWCY 

0000 

—58 






PSWF'V 

0002 

-57 






PS W SON 

0007 

-55 






PSWZRO 

0006 

-56 






PUTVEC 

1 9D3 

-961 

804 

810 




PVOL.AB 

4FD2 

-598 






PVOLMC 

4FD3 

-599 






QUIT 

0078 

-2«8 

1 208 

1 208 




RANGED 

0076 

-287 






RANSHT 

4FEF 

-630 






RBULS 

4FDB 

-1554 

733 





RBIJLX 

0068 

-659 

771 

1 162 




RCACX 

0058 

-670 

673 

872 

894 

899 

1 032 

RCALL 

0004 

-218 

1075 





RCOWB 

4F78 

-1548 

732 

824 

835 

912 

1 098 

RECTAN 

00 1C 

-236 






RELAB 1 

00 3 A 

-253 

780 

780 

882 

882 


RELABS 

0038 

-252 

1321 

1321 




RESTOR 

002E 

-245 






RFIELD 

4FA1 

-1555 

1081 





RFTAB 

1 DC2 

-1420 

1083 





RITE: 

184F 

-769 

774 





RNX 

00 yy 

-657 

1068 





RSCORE 

4FA6 

-1558 

908 

1 072 




SAVE 

002C 

-244 






SCHEDR 

OOOC 

-224 






SCREEN 

0000 

-41 

1324 

1326 




SCROLL 

0030 

-246 






SCRSTR 

00 1 6 

-232 






SCT 0 

0001 

-128 






SCT 1 

0002 

- 1 29 






SCT 2 

0003 

-130 






SCT 3 

0004 

-131 






SCT 4 

0005 

-132 






SCT5 

0006 

- 1 33 






SCT6 

0007 

-134 






SCT7 

0008 

-135 

1210 





SEMI4S 

4FDE 

-612 

944 

1195 




SENFLG 

4FFA 

-636 






SENTRY 

0042 

-259 

1180 





SETB 

007 A 

-289 

1028 







SETOUT 

0016 

-233 

1031 

SETW 

007C 

-290 


SFO 

0009 

-136 

1211 

SF1 

OOOA 

-137 


SF2 

OOOB 

-138 


SF3 

OOOC 

-139 


SF4 

OOOD 

-140 


SF5 

OOOE 

-141 


SF6 

OOOF 

-142 


SF7 

0010 

-143 


SHIFTU 

0060 

-276 


SINIT 

1DCF 

-1428 

1050 

SJO 

0015 

-152 

1214 

SJ1 

0017 

-154 

1215 

SJ2 

0019 

-156 


SJ3 

00 IB 

-158 


SKYD 

0013 

-145 

1216 

SKYU 

0012 

-146 


SNDBX 

0018 

-184 


SNUL 

0000 

-127 


SPO 

00 1C 

-147 

1212 

SP1 

00 ID 

-148 

1213 

SP2 

00 IE 

-149 


SP3 

00 IF 

-150 


SSEC 

0011 

-144 

1219 

STO 

0014 

-151 

1217 

ST1 

0016 

-153 

1218 

ST2 

0018 

-155 


ST3 

001 A 

-157 


STACK 

4F06 

-1534 

1021 

STHN 

18A4 

-814 


STIMER 

0200 

-45 

1427 

STMRX 

004C 

-660 

712 

STOREN 

0058 

-272 


STRDIS 

0034 

-249 

941 

STRND 

1A0C 

-1001 

1202 

STRRAM 

4F12 

-1537 

1057 

STSEC 

1837 

-755 

761 

SUCK 

OOOC 

-222 

725 



911 

1059 

SWO 

0010 

-197 


SW1 

0011 

-198 


SW2 

0012 

-199 


SW3 

0013 

-200 


SYSRAM 

4FCE 

-639 


TAPS 

1FB1 

-1525 

907 

TBUMP 

1D1E 

-1325 

1294 

TBUMP1 

1D25 

-1330 

1447 

TCAC 

199B 

-927 

957 

TCACY 

0014 

-664 

665 

TIME 

OOOB 

-1430 

714 

TIMOUT 

4FEC 

-626 


TIYU 

1ABE 
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